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.SBTTL BASIC DEFINITIONS 



000011 
000012 
0C0015 
000200 
17777f 

177774 
17777? 
177570 
177570 



000000 
OOOCOl 
000002 
000003 
000004 
000C05 
000006 
000007 
000006 
0COOC7 



000000 
0C0C4C 
000100 
000140 
0002CC 
000240 
000300 
CC034C 



lOOOOG 
0400Cr 
020000 
010000 
004000 
0020CC 
001000 
000400 
000200 
OCOICC 
000040 
000020 
OOOOIC 
0C00C4 



;*INITIAL ADDRESS 
STACK= 1100 
-EQUIV EMT/ERROR 
.FGUIV lOT/SCQPE 



OF THE STACK POINTER *** 1100 *** 



;;basic definition of error call 

;?BAS1C definition OF SCOPE CALL 



;*MISCELLANEtlUS DEFINITIONS 

HT= 11 ;?CODE FOR HORIZONTAL TAB 

LF= 12 ;?CODE FOR LINE FEED 

CR= 15 ;jCOOE FOR CARRIAGE RETURN 

CRLF= 200 ?JC0DE FOR CARRIAGE RETURN-LINE FEED 

PS= 177776 ;;PRDCESSOR STATUS WORD 

.EGUIV PS/PSW 

STKL»«T= 177774 ;;STACK LIHIT REGISTER 

PIRQ= 177772 ;;PROGRAM IfiTERRUPT REQUEST REGISTER 

USaRr 177570 ;;HAKDkARE SWITCH REGISTER 

DDISP= 177570 JJHARDKARE DISPLAY REGISTER 

;*GENERAL PURPOSE REGISTER DEFINITIONS 



R0 = 
Rl = 
R2= 
R3 = 
R4 = 
R5 = 
R6 = 
R7= 
SP = 
PC = 



%0 
%1 
%2 
%3 
%4 
%5 
%6 
%7 
%6 
%7 



;;general register 
;?general register 
;?general register 
;;general register 
;;general register 
;;genefal register 
;;general register 
;;general register 
>;stack pointer 
;;ppogram counter 



;*PRI0RITY LEVEL DEFINITIONS 



PR0= 
PR1 = 
PR2= 
FR3= 
PP4 = 
PR5 = 
PR6= 
PR7= 





40 

100 

140 

200 

240 

300 

340 



;;PRIORITY LEVEL 

;?PRI0R1TY LEVEL 

;?PRI0RITY LEVEL 

;JPRI0RITY LEVEL 

;?PRIORITY LEVEL 

??PRIORITY LEVEL 

;JPRICRITY LEVEL 

;?PRIORITY LEVEL 



?*"SaiTCH REGISTER" SWITCH DEFINITIONS 



SW15 = 
SW14 = 
SW13= 
SW12 = 
SW11 = 
SW10= 
SW09 = 
SW08 = 
SH07 = 
3W06 = 
SW05 = 
SW04 = 
SW03 = 
SW02 = 



100000 

400CC 

20000 

10000 

4000 

2000 

1000 

400 

200 

100 

40 

20 

10 

4 
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000002 
000001 



ICOOCC 
040000 
02000C 
010000 
0C40CC 
002000 
OOlOOr 
000400 
0002QC 
000100 
00004C 
000020 
OCOOIC 
000004 
000002 
000001 



0C0CC4 
000010 
000014 
000014 
0C0C14 
000020 
000024 
0C003C 
000034 
00006C 
000064 
000240 



SK01 = 

3W00 = 

-EQUIV 

.EGUIV 

-EGUIV 

-EGUIV 

-EGUIV 

-EQUIV 

-EGUIV 

-EQUIV 

-EGUIV 

-EGUIV 



2 

1 

SW09/SW9 

SW08,SH8 

SW07/SH7 

S«06,SW6 

SW05/SW5 

SW04,SW4 

SW03/SW3 

SW02,SW2 

SWOI/SHI 

SWOO,SWO 



;*DATA BIT DEFINITIONS (BITOO TT BIT15) 

BIT15= ICOOCf) 

aiT14= 40000 

BIT13= 20000 

6IT12= 10000 

BIT11= 40CC 

flIT10= 2000 

BIT09= 1000 

BIT08= 400 

aiT07= 200 

BIT06= 100 

BIT05- 40 

BIT04= 20 

BIT03= 10 

BIT02= 4 

BIT01= 2 

aiT00= 1 

-EGUIV BIT09,BIT9 

-EGUIV BIT08/BIT8 

-EGUIV BIT07,BIT7 

-EGUIV BIT06,BIT6 

-EGUIV BITC5/BIT5 

-EGUIV BIT04,BIT4 

-EQUIV BIT03,BIT3 

-EGUIV BIT02/BIT2 

-EGUIV BITOl/BITl 

-EQUIV BITOO, BITO 

;*BASIC "CPU" TRAP VECTOR ADDRESSES 

ERRVEC= 4 ?;TIME CUT AND OTHER ERRORS 

RESVECr 10 ;;RESEPVED and ILLEGAL INSTRUCTIONS 

TB1TVEC=14 ;;"T" BIT 

TRTVEC= 14 ;?TRACE TRAP 

aPTVEc= 14 j;breakpoint trap (BPT) 

IOTVEC= 20 ;?INPUT/CUTPUT TRAP (lOT) **SCOPE** 

PWRVEC= 24 ;;POWER FAIL 

EMTVEc= 30 ;;emulator trap (EHT) **ERR0R** 

TRAPVEC=34 ;?"TRftP" TPAP 

tkvec= 60 ;;tty keyboard vector 

tpvec= 64 ??tty printer vector 

p1rqvec=240 ;;program interrupt request vector 
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000015 
000012 
0C0014 
000200 



CR = 15 
LF = 12 
FF = 14 
CRLF=200 

•SBTTL TRAP CATCHER 



*«**«**««*»**«***«««*«**«*«***** 



000174 
0C0174 OOOOOC 
000176 000000 



000200 

ococ4e 

005322 
000052 
0200CC 
000200 



.=0 
;*ALL UNUSED LOCATIONS FROM 4 - 77t3 CONTAIN A ••.♦2/HALT" 
;*SEGUENCE TQ CATCH ILLEGAL TRAPS AND INTERRUPTS 
;*LOCATION CONTAINS TO CATCH IMPROPERLY LOADED VECTORS 

. = 174 
DISPREG: .WORD C ;?SOFTWARE DISPLAY REGISTER 

SWREG: .WORD ;?SOFTWARR SWITCH REGISTER 

.SBTTL ACTll HOOKS 



JHOOKS REQUIRED BY ACTll 
SSVPC=. 
. = 46 
SENDAD 
* = 52 

.WORD 2000C 
.=$SVPC 



**************************** 

JSAVE PC 

JJDSET LCC.46 TO ADDRESS OF SENDAD IN .$EOP 

;?2)SET LOC.52 TO 20000 
;j RESTORE PC 
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ACTll HOOKS 



. ******* 



t********** 



********************** 



000C3O 
000032 



0C7744 
000000 



SERROR 




;EMT - ERROR HANDLER 



CCOIOO 
000102 



000104 
00C106 



0r5566 
000000 



006556 
CCOOOO 



LKSPV 




DCI 




?KW11-L INTERRUPT 
;KW11-P INTERRUPT 



**************** 



000200 
000200 000137 001174 

000600 
OOOfcOO 000137 001210 
00C6O4 C00137 001220 



OCllCC 



001100 177560 

001102 177562 

001104 177564 

001106 177566 



-SBTTL STARTING ADDRES 


SES 


. = 200 






JMP 


START 




. = 600 






JMP 


RESTRT 




JMP 


CONTRL 




.,******************************. 


.SBTTL COMMON 


TAGS 




-=11CC 






TKS: 177^60 
TKBi 177562 
TPS: 177564 
TPB: 177566 








.EQUIV 
.EQUIV 
.EQUIV 
.EQUIV 


TKS,$TK£ 
TKB/STKB 
TPS/STPS 
TPB/STPP 



JGENERAL START 



;RESTART - NO INTERACTIVE TESTS 

;G0 TO KEYBOARD CONTROL 

;WILL DEFAULT TO SWITCH REG 

>IF CONSOLE DEVICE DOES NOT EXIST 



************ 



************* 



5TTY KYHD STATUS REG. ADDRESS 

;TTY KYBO BUFFER REG. ADDRESS 

;TTY PRINTER STATUS REG. ADDRESS 

;TTY PRINTER BUFFER REG. ADDRESS 
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001110 000000 



001112 OOOOOC 
001114 000000 



001116 OCOOOO 



LPKB: 
LPS: C 



HHE FOLLOWING 4 LOCATIONS ARE INITIALIZED 

;By THE PPOGRAH 

ILINE PRINTER KBD STATUS REG ADDRESS 

;(IF SERIAL INTERFACE) 

JBIT 6 = INTERRUPT ENABLE 

;LINE PRINTER KBD BUFFER REG ADDRESS 

?LINE PRINTER STATUS REG. ADDRESS 

;BIT 15 = ERROR (IF PARALLEL INTERFACE) 

JBIT 7 = READY 

;BIT 6 = INTERRUPT ENABLE 

;LINE PRINTER DATA BUFFER REG- ADDRESS 
;BITS 0-6 = ASCII CHAR BUFFER 
JBITS 7-15 = NOT USED 



001120 000000 

001122 000001 

001124 175610 

001126 177510 

001130 000000 

001132 OCOOOO 



SERSfe: 

NUMLP: 1 

FSTSAD: 175610 

FSTPAD: 177510 

ACtFST: 

lpctR: 



;SERIAL SWITCH. THE PRESENCE OF ANY 1-BITS 
;IN THIS WORD WILL INDICATE THAT 
;SERIAL-INTERFACED LAISO'S ARE TO BE TESTED- 
;DEFAULT IS ALL O'S = PARALLEL INTEPFACE- 

;THE number of LAISO'S WHICH THIS 

;diagnqstic will attempt to TESTJ 

5 default = 1 

;FIRST LAIBO ADDRESS TO BE USED IF INTERFACE- 
;TYPE INDICATED IN LOCATION SERSW IS SERIAL* 

;FIRST LA180 ADDRESS TO BE USED IF INTERFACE- 
JTYPE INDICATED IN LOCATION SERSW IS PARALLEL. 

; ACTUAL FIRST ADDRESS BEING USED 

JDURING PROGRAM EXECUTION. INITILIZED BY PROGRAI* ITSELF 

;LP COUNTER (USED BY PROGRAM ONLY) 



001134 172540 
001136 172542 



001140 17754f 



001142 177570 
001144 177570 



PLKS! 172540 
CSBR: 172542 



LK3: 177546 



SKR: .WORD 177570 
DISPLAY: .WORD 177570 



;KL11-P CLOCK STATUS REG. ADDRESS 
;KL11-P COUNT SET ADDRESS 



;KW11-L CLOCK STATUS REG. ADDRESS 



;SW REG ADDRESS 
?D1SPLAY ADR 
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lllllir 



001146 


OOOOOC 


001150 


000204 


001152 


ccr 


001153 


000 


001154 


000 



0C1156 000207 

001160 077 

001161 015 
C01162 0C0C17 

001164 OOOOlf 

001166 000014 



STSTNM: 


»WOPD 





WIDTH: 


.WORD 


132 


strone: 


• BYTE 





TRONE: 


.BYTE 





tldop: 


• BYTE 






CKFLAG: iBYTE 



SHELL: -ASCIZ <207> 

SGUES: .ASCII /?/ 

SCHLF: .ASCII <15> 

SLF: .ASCI? <12> 



$CR: 
$ff: 



-ASCIZ 

4ASCIZ 



.EVEN 



<15> 
<14> 



;TEST NUMBER 

;number of columns 

;run test once flag (sw reg ctl) 

;PUN TEST ONCE FLAG (KYBD CTL) 
;LOOP ON TEST FLAG (KYBD CTL) 

;CLQCK OPTION FLAG 
;0 = NONE AVAILABLE 
}*l - KLll-L 

;-i = KLii-p 



;bell code 

JQUESTION MARK 
/CARRIAGE RETURN 
JLINE FEED 



LINE FEED 



/CARRIAGE RETURN ONLY 
;F0RM FEED 



001170 CCC 

001171 002 

001172 01? 

001173 OCC 



;THE FOLLOWING LOCATIONS ARE USED BY THE TTY TYPE ROUTINES 

;SET THE FILL CHARACTERS AS REQUIRED FOP VARIOUS CONSOLE TERMINALS 

;THE TERMINAL AVAILABLE FLAG WILL BE SET BY THE PROGRAM. 



SNULL: .BYTE 

SFILLS: .BYTE 2 

sfillc: .byte 12 

STpflg: .byte o 

»EVEN 



;NULL CHARACTER FOR FILLS 

/NUMBER OF FILLER CHARACTERS REQUIRED 

/INSERT FILL CHARACTERS AFTER LINE FEED 

/TERMINAL UNAVAILABLE FLAG 

/BIT <07> = 1 = UNAVAILABLE 
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ft**********ft*ft****«***»****«* 



**************** 



********** 



.SBTTL PROGRAM INITIALIZATION 



001174 


005037 


001146 




START: 


CLP 


$TSTNM 


001200 


023737 


000042 


000046 




CMP 


@#42/@#46 


001506 


OC1007 








BNE 


STARTX 


001210 


012737 


000020 


001146 


restrt: 


MOV 


#20,$TSTNM 


001216 


000403 








BR 


STARTX 


0C1220 


012737 


177777 


Q01146 


COhTRL: 


MOV 


tf-1/STSTNM 


001326 


012737 


177570 


001142 


STARTX: 


MOV 


#177570^SWR 


001234 


013737 


001142 


001144 




MOV 


SWR/DISPLAY 










.SBTTL 


INITIALIZE THE COMMON ' 


005242 


0127C6 


OOllOC 






MOV 


«STACK,SP 










;?1NITIALIZE 


A FEW VECTORS 


001246 


012737 


013060 


000034 




MOV 


«$TRAP,@#TRAPV1 


001254 


012737 


000340 


000036 




MGV 


tt34O,0#TRAPVEC' 


001262 


012737 


013210 


000024 




MOV 


#$PWRDN,@#PWRV: 


001270 


012737 


000340 


000026 




MOV 


#340/@#PWRVEC+; 


001276 


005037 


005336 






CLR 


SPASS 


0C1302 


013737 


005306 


C05300 


>?SIZE 

;;eqoal 


MOV 

FOR A 

TO A 


SENDCT^SEOPCT 
HARDWARE SWITCH Rl 
"-1", SETUP FOR A 


001310 


013746 


C0CCC4 






MOV 


@#ERRVEC^-($P) 


001314 


012737 


001350 


000004 




MOV 


|f64$/ra#ERRVEC 


001322 


012737 


177570 


001142 




MOV 


#DSWR,SWR 


001330 


012737 


177570 


001144 




MOV 


#DDISP/DISPLAY 


001336 


022777 


177777 


177576 




CMP 


«*-l,§SWR 


001344 


001012 








BNE 


66$ 


001346 


000403 








BR 


65$ 


0C1350 


012716 


001356 




64$: 


MOV 


#65$, (SP) 


001354 


000002 








RTI 




001356 


012737 


000176 


001142 


65$: 


MOV 


#SWREG/SWR 


001364 


012737 


000174 


001144 




MOV 


frDISPREG,DISPL, 


001372 


012637 


00CCC4 




66$: 


MOV 


(SP)*/i#ERRVEC 


001376 


017700 


177540 






MOV 


iaswR/RO 


001402 


005200 








INC 


RO 


CC14C4 


0C1CC6 








BNE 


6$ 


001406 


0127 37 


000176 


001142 




MOV 


#SWREG/SWP 


001414 


012737 


000174 


001144 




MOV 


#DISPREG,DISPL, 


001422 


017700 


177514 




6$: 


MCV 


@SWR,RO 


001426 


0427CC 


1774CC 






BIC 


#1774C0/R0 


001432 


020027 


000204 






CMP 


R0/#132. 


001436 


003003 








BGT 


2$ 


0C1440 


020C27 


0O0CC2 




IS: 


CMP 


R0/ff2. 


001444 


103002 








BKIS 


3$ 


001446 


012700 


000204 




2$: 


MOV 


11132. ,R0 


001452 


010037 


001150 




3S: 


MCV 


RO, WIDTH 


001456 


105037 


001154 






CLPP 


TLOCP 


001462 


1050 37 


001152 






CLRB 


STRONE 


001466 


105037 


001153 






CLRB 


TRONE 


001472 


0C5037 


01166C 






CLR 


SVTST 


001476 


000401 








BR 


10$ 



;SET TEST NUMBER TO ZERO 

;CKECK IF IN ACT QUICK VERIFY 

;SKIP MANUAL INTERVENTION TESTS IF YES 

;INITIALIZE 

;SET TEST NUMBER TO 20 

UNITIALIZE 

?SET CONTROL FLAG 

^INITIALIZE SWR CONTROL 



;;SETUP THE STACK POINTER 

EC ;;trap vector for trap calls 
♦2;level 7 

EC j>pqwer failure vector 
2 ;;level 7 

;>CLEAR THE PASS COUNT 

;;SETUP end-of-program counter 
egister. if not found or it is 
software switch register. 
;;save error vector 
;;set up error vector 
;;setup for a hardware swich register 
;;and a hardware display register 
;jtry to reference hardware swr 
?jbranch if no timeout trap occurred 
;;a«jd the hardware swr is not = -1 
;?branch if no timeout 
;?3et up for trap return 

?;PalNT TO SOFTWARE SWR 
AY 

;jRESTORE ERROR VECTOR 

;GET SWITCHES 

;CHECK IF ALL SWITCHES ARE UP 
;CONTINUE IF NOT 

;IF UP, SET SOFTWARE SWITCH CONTROL 
AY 

>GET SW REG 

;save bits 0-7 

;TEST # COLUMNS 

;T0C big, default to 132(10) 

;TEST # COLUMNS 

;branch if OK 

;DEFAULT TO 132(10) 
;SAVE # COLUMNS 
;PESET FLAGS 



JREPLACE THIS INSTRUCTION WITH NOP (204) 
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001500 
U01502 
001510 
001516 
001524 
001526 
001532 
001534 
001542 
001544 
0C1550 
001552 
001556 
001562 
001570 
001572 
001576 
001600 
001604 
001606 
001612 
CC1616 
001622 



0016 26 
001632 
001634 
001642 
001644 
001650 

ccnoo 

001700 
001704 
001706 
001712 
001714 
001720 
0C1726 
001730 
001734 
001740 
0C1742 
001746 
001750 
001752 
001756 
001760 



00042^ 
012737 
012737 
112737 
000261 
105777 
103011 
112737 
000261 
10577'^ 
1C3CC2 
1060 37 
00 47 37 
1127 37 
000261 
105777 
103402 
1C5C37 
10300? 
104414 
005037 
0C5C37 
004737 



0C5227 
001022 
022737 
001416 
104401 
000413 



005737 
002005 
1C5737 
100406 
000137 
032777 
00140/ 
000137 
013700 
006300 
CC576C 
003004 
002756 
005237 
0CO76C 
000170 



000002 000006 
000006 000004 
177777 001155 

177402 

COCCOl C01155 

177370 

001155 
001764 
177777 001173 

177302 

001173 

015225 
000006 
000C04 
002032 

177777 

005322 000042 
001652 



001146 
001173 



007442 

000400 177214 



10$: 



006752 
001146 



001146 
013356 



20$: 
30$: 



5$: 



.SBTTL 

;;TYPE 



>?o8$: 
b7S: 



15$: 



lis: 



13$: 
12$: 



BR 
MOV 
MOV 
MOVR 
SEC 
TSTP 
BCC 
MOVE 
SEC 
TSTB 
BCC 
CLRB 
JSR 
MOVB 
SEC 
TSTB 
BCS 
CLRP 
BCC 
PRINT 
CLR 
CLK 
JSR 

TYPE P 
THE NAM 
INC 
BNE 
CMP 
BEG 
TYPE 
BR 
aASCIZ 

TST 

BGE 

TSTB 

BMI 

JMP 

BIT 

BEQ 

JMP 

MOV 

ASL 

TST 

BGT 

BLT 

INC 

BP 

JMP 



20S 

#RTI,(a#5 

*i6,@*|4 

#-l,CKFLAG 

3PLKS 

30$ 

ttl,CKFLAG 

laLKS 

30$ 

CKFLAG 

PC,QU01 

«-l,$TPFLG 

@TKS 

4$ 

STPFLG 

5S 

,NCMSG 

@#6 

@tf4 

PC,QU02 
ROGRAH NAME 
E OF THE PROGRAM 

»-l 

67$ 

#SENDAD,@#42 

67$ 

,685 

67$ 

<CRLF>#MAINDEC- 

STSTNM 

US 

STPFLG 

13$ 

KYBDST 

#SW8,@SWR 

12$ 

SELECT 

$TSTNM,RO 

RO 

TAT(RO) 

14$ 

ISS 

STSTNM 

lis 

i?TAT(PO) 



;TC SKIP CLOCK TIMINGS 
?SET TRAP RETURN 



;SET CLOCK FLAG FOR KWll-P 

;SET C-BIT 

;KW11-P AVAILABLE? 

;YES, CHECK FOR CONSOLE TERMINAL 

;SET CLOCK FLAG FOR KWH-L 

;SET C-BIT 

;KW11-L AVAILABLE? 

;YES, CHECK FOR CONSOLE TERMINAL 

;CLEAR CLOCK AVAILABLE FLAG - NONE THERE 

;INITILIZE ACTFST AND SELECT DRIVES 

;SET CONSOLE UNAVAILABLE FLAG 

JSET C-BIT 

;CONSOLE TERMINAL THERE? 

>NQ, BRANCH 

;YES, CLEAR CONSOLE UNAVAILABLE FLAG 

;CONTINUE IF CONSOLE 

;PRINT MO CONSOLE MESSAGE 

>RESET TRAP VECTOR HALTS 

;TYPE INTF. MISC. IF CONSOLE 

IF 



FIRST PASS 
FIRST TIME? 
BRANCH IF NO 
ACT-11? 
BRANCH IF YES 
TYPE ASCIZ STRING 
GET OVER THE ASCIZ 
DZLAE-B#<CRLF> 



?WANT CONTROL NOW? 

;N0, CONTINUE 

;TEPMINAL THERE? 

?NC, DEFAULT TC SW REG CONTROL 

;YES, GO TO KYBD CONTROL 

;WANT TEST SELECTION? 

;N0, CHECK TEST ^ 

?YES, GO TO TEST SELECTION HALT 

;GET test NUMBER 

JSET POINTER 

JCIISCK IF TEST IN TABLE 

?BRANCH IF IN TABLE 

;END OF SEQUENCE, SELECT TEST 

>INCREMENT TEST NUMBER 

JCHECK NEXT TEST NUMBER IN TABLE 

;G0 TO TEST 
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001764 
001770 
001772 
002000 
002006 
002010 
002016 
002024 
002030 



005737 001120 
CC14C7 



013737 
012737 
0004Ce 
013737 
012737 
004737 
000207 



001124 
011206 

001126 
011044 
011316 



001130 
011042 



001130 
011042 



90$: 



TST 

BEG 

MOV 

MOV 

BR 

MOV 

MOV 

JSH 

RTS 



SERSy 

80$ 

FSTSAD^ACTFST 

#SLDAD/LDPTR+2 

90S 

FSTPAD/ACTFST 

#PL0AD,LDPTR*2 

PCRSTADR 

PC 



;IS SERIAL SWITCH SET? 

jZERaS=NQ=PARALLEL=BRANCH 

;SET ADDRESS OF 1ST SERIAL INTF. 

/SWITCH TO SERIAL LOADER 

>GET AROUND NEXT 2 INSTPS 

>SET ADDRESS OF 1ST PARALLEL INTF. 

;SWITCH TO PARALLEL LOADER 

;aDDRESS 1ST LINE PRINTER 

;return 



002032 
0C2C36 
002040 
002044 
CC2C50 
002052 
002056 
0020o2 
0C2C66 
002072 
002074 
0C2100 
002104 
002110 
002112 
0f2113 
002114 
002120 
002122 
0G2130 
002132 
002140 
002146 
C02154 
002161 
002166 
002174 
0C217e 
002200 
002206 
002214 
002222 
002230 
002234 
002242 



105737 
1C042C 
104401 
005737 
0C147€ 
104401 
104401 
104401 
0137 46 
104405 
104401 
1C44C1 
013746 
104403 
006 
OCl 
104401 
000207 
042523 
0C004C 
047111 
041501 
030501 
0515C5 
043 
030070 
000040 
00020C 
044506 
051120 
023522 
051104 
051511 
040520 
046105 



002176 
001120 

002122 
002132 
002161 
001122 

002176 
00220C 
001130 



044522 

042524 
042105 
030070 
100124 
046040 
051447 



051522 
047111 
020123 
051505 
000040 
040522 
000040 



020124 
042524 
042101 
C20123 



70§! 



78$: 
046101 71$: 

043122 72$: 
046040 
052040 
000 
030501 73$: 
036440 



74$: 
75$: 



002246 104401 
002252 000701 



046114 76$: 



77$: 



tstb 

BMI 

TYPE 

TST 

BEG 

TYPE 

TYPE 

TYPE 

MOV 

TYPDS 

TYPE 

TYPE 

MOV 

TYPOS 

rfBYTE 

-BYTE 

TYPE 

RTS 

iASCIZ 



«ASCIZ 
*ASCIZ 



$TPFLG 

78$ 

/74$ 

SERSS 

77$ 

/71S 

#72S 

/73$ 

NUMLP,- 

,74S 
/75$ 

ACTFST,- 

6 

1 

/74S 

PC 

/SERIAL 



;IS THERE A CONSOLE TERMINAL? 
;BRANCH if NONE 
;CRLF CONSOLE 
;IS SFRIAL SWITCH SET? 
;ZERUS=NQ=PARALLEL=BRANCH 
;SERIAL 

HNTERFACED LA180 TEST/ CRLF 
;f| LAIBO'S = 
(SP> ?PUT # OF LP'S ONTO STACK 

;TYPE # OF LP'S BEING TESTED 
;CRLF 

;FIRST PRINTER'S ADDRESS IS 
(SP) ?PUT VALUE ONTO STACK 
;TYPE OCTAL ADDRESS 



;CRLF 

;fxit 



.ASCIZ /interfaced LA180 TEST/<CRLF> 



.ASCIZ /# LAIBO-S = / 



<CRLF> 

/FIRST PRINTER'S ADDRESS IS / 



.ASCIZ /PARALLEL / 
*EVEN 



TYPE 
BR 



/76S 
70S 



;PARALLEL 
^CONTINUE 
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002322 
002326 
002330 
002232 
002336 
002340 



1C4401 
104421 
104420 
0C5777 
100402 
104003 



015626 



002342 000772 
002344 1C5777 



002350 
002352 
002354 



002356 
002362 
002364 



100002 
104004 
000765 



104401 
104421 
1C4420 



.SBTTL OPERATOR INTERVENTION TESTS 

;////////////////////////////////////////////////////////////////////// 

;T£ST0 - INTERFACE AND CCNTRCL TESTS (PARALLEL INTF ONLY) 

/ 

;TEST EPPOR AND READY BITS/ PRINTER OFF LINE - POWER OFF 

;////////////////////////////////////////////////////////////////////// 



002254 


0C5737 


001120 


TESTC: 


TST 


SERSfe 


;IS PARALLEL INTF INDICATED? 


002260 


001402 






BEQ 


29S 


;HRANCH IF YES 


002262 


000137 


006644 




JMP 


EXIT 


;OTHERWISE EXIT TEST 


002266 


104401 


015567 


29$: 


TYPE/ 


TOMSGO 


;TYPE INSTRUCTIONS 


002272 


1C4421 






HOLD 




;WAIT FOR OPERATOR 


002274 


104420 




28$: 


CHECK 




;CHECK FOR CONTROL 


002276 


005777 


176612 




TST 


0LPS 


;CHECff FOR ERROR CONDITION 


002302 


100402 






BMI 


IS 


;0K/ ERROR SET 


0C23C4 


1C4C01 






ERROR 


1 


/ERROR CLEAR/ POWER OFF 


002306 


000772 






BR 


28$ 


J^ETEST 


002310 


105777 


176600 


1$: 


TSTB 


§LPS 


;CHECK READY 


002314 


100002 






BPL 


2S 


;0K/ HEADY NOT SET 


002316 


1C40C2 






ERROR 


2 


JREADY SET/ POWER OFF 


002320 


000765 






BR 


28S 


;PETEST 



002366 005777 
002372 100002 



176522 



;////////////////////////////////////////////////////////////////////// 

;TEST error and ready BITS/ printer OFF LINE - POWER ON 

;////////////////////////////////////////////////////////////////////// 

JTYPE INSTRUCTION - TURN POWER ON 

;WAIT FOR OPERATOR 

;CHRCK FOR CONTROL 

;CHECK ERROR 

;0K/ ERROR SET 

;ERR0P CLEAR/ PRINTER OFF LINE 

>RETEST 

;CHECK READY 

;0K/ READY NOT SET 

;READY SET/ PRINTER OFF LINE 

;retest 
;////////////////////////////////////////////////////////////////////// 

;TEST error AND READY BITS/ PRINTER ON LINE 

;////////////////////////////////////////////////////////////////////// 

;TYPB INSTRUCTION, TURN ON LINE 
;WAIT FOR OPERATOR 
;CHECK FOR CONTROL 
;CHECK ERROR 
?0K, ERROR CLEAR 



2$: 


TYPE/ 

HOLD 


TOMSi 


3S: 


CHECK 






TST 


8LPS 




BMI 


4$ 




ERROR 


3 




BR 


3$ 


4$: 


TSTB 


0LPS 




BPL 


5$ 




ERROR 


4 




BR 


3$ 



5$: 


TYPE 
HOLD 


/TON; 


6$: 


CHECK 






TST 


0LPS 




BPL 


7S 



002412 


104401 


015705 


0C:416 


1C4421 




002420 


104420 




002422 


012777 


000012 


002430 


005777 


176460 


CC2434 


1C0403 




002436 


104007 




002440 


000767 




002442 


105777 


176446 


CC2446 


100CC2 




002450 


104010 




002452 


00076? 





a5: 


TYPE 
HOLD 


,T0MSG3 


9S: 


CHECK 






MOV 


#12,@LPB 




TST 


@LPS 




BMI 


lOS 




ERROR 


7 




BR 


9S 


10$: 


TSTB 


(?LPS 




BPL 


lis 




ERROR 


10 




BR 


9$ 
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002374 104005 ERROR 5 ;ERROR SETr PRINTER ON LINE 

002376 0C0772 BR 6$ ;RETEST 

002400 105777 176510 7$: TSTP 8LPS ?CHECK READY 

002404 100402 BMI dS }0K, READY SET 

002406 104006 ERROR 6 >READY CLEAR/ PRINTER ON LINE 

OC2410 0C0765 BR 6$ JRETEST 

/////////////////////////////////////////////////////////////////////// 

;TEST PAPER OUT SWITCH 

;TYPE INSTRUCTION/ PAPER OUT 

;WAIT FOR OPERATOR 

KHECK CONTROL 

;SEND LF 

>CHECK FOR ERROR CONDITION 

;0K/ ERROR SET 

;ERR0R CLEAR/ PAPER OUT ERROR 

;RETEST 

;check ready 

;dk/ ready clear 

;ready set, paper out, on line 

;retest 

}iiimiiiiiiniimiimimiiiiiiiiiiiiiniuiiinnmmiimiinii 

;test ability to clear error condition 

',111 niiimiii niiiiiiniii II I iiiimimni minimum iminim 

;TYPE INSTRUCTION/ RESET & ON LINE 

;WAIT FOR OPERATOR 

;CHECK FOR CONTROL 

;CHECK ERROR 

JOK/ ERROR CLEAR 

;ERR0R DID NOT CLEAR 

>RETEST 

;CHECK READY 

70K/ READY SET 

;ready not SET 

JRETEST 

',111 III nil II mil mill nil 1 1 II 1 1 milium mil III III nil mum III 

;CHECK ERROR & READY BITS AFTER RESFT INSTRUCTION 

',111 iiiiiiiiiiiiiiiiiiiiiiii II iiiiiiiiiiiiiiiiiimmmiiiii III III III 

002510 104420 14$: CHECK ;CHECK CONTROL 

002512 000005 RESFT >CLEAR WORLD 

0C2514 0C5777 176374 TST @LPS ;CHECK ERROR 

002520 100002 BPL 15$ ?0K/ ERPOR CLEAR 

002522 104013 ERROR 13 ;ERRDR BIT SET AFTER RESET INSTR- 

002524 000771 BR 14$ ;RETEST 



MAINDEC-11-DZLAE~B MACYll 27(1006) Ol-MAR-77 14:45 PAGE 33 
DZLAEP.Pll 28-FEB-77 15:08 OPERATOR INTERVENTION TESTS 

0C2526 1C442C 15$: CHECK ?CHECK CONTROL 

002530 000005 RESET ;CLEAR WORLD 

002532 105777 176356 TSTB @LPS ;CHECK READY 

002536 100402 BMI 16$ ;0K/ HEADY SET 

0C2540 1C4C14 ERROR 14 ;READY BIT CLEAR AFTER RESET INSTR- 

002542 000771 BP 15$ ?RETEST 

miiimiiiiiiiimniiiiiiiiiiiiiiiniiiiiiiiiiiiimiiiiiiiiiiniiii 

;CHECK THAT LOADING CHAR BUFFER RESETS READY PIT 
;AND PRINTER DOES GO BACK READY. 

yiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiinimiiiiiiiiiiiiiiiiiiii 

16$: 



002454 


104401 


015737 


11$: 


TYPE 


/TOM; 


002460 


104421 






HOLD 




002462 


104420 




12$: 


CHECK 




002464 


0C5777 


176424 




^TST 


0LPS 


002470 


100002 






BPL 


13$ 


002472 


104011 






ERROR 


11 


002474 


000772 






BR 


12$ 


002476 


1C5777 


176412 


13$: 


TSTB 


@LPS 


002502 


100402 






BMI 


14$ 


002504 


104012 






ERROR 


12 


002506 


000773 






BR 


13$ 



002544 


104420 




002546 


005005 




0C2550 


012777 


0C0C15 


002556 


105777 


176332 


002562 


100002 




002564 


104015 




CC2566 


0C076€ 




002570 


005777 


176320 


002574 


100002 




002576 


104016 




0^^2600 


0C0761 




002602 


105777 


176306 


002606 


100404 




002610 


005205 




002612 


001366 




002614 


104017 




002616 


000752 





17$: 



CHECK 




KHECK CONTROL 


CLR 


R5 


;CLFAR TIME OUT COUNTER 


MOV 


#15/eLPB 


?L0AD CARRIAGE RETURN INTO BUFFER 


TSTP 


8LPS 


JCHECK READY 


BPL 


17$ 


;0K/ READY CLEAR 


ERROR 


15 


;READY BIT NOT CLEAR WHEN CHAR LOADED 


BP 


16S 


JRETEST 


TST 


0LPS 


;CKECK ERROR 


BPL 


18$ 


;0K/ ERROR CLEAR 


ERROR 


16 


;ERRCK BIT SET AFTER CHAR LOAD 


BR 


16$ 


;retest 


TSTB 


-JLPS 


;PPINTER STILL BUSY 


BMI 


19$ 


;no/ next test 


INC 


R5 


;YES, INC TIMER 


BNE 


17$ 


;WAIT FOR FLAG 


ERPOR 


17 


;N0/ TOO LONG 


BR 


16$ 


;retest 



nil iiiniiiiiiiiimnimiiiminiiiiiiiiiiiiiiiimiiniiiiiiniiii 

;CHECK INTERRUPT LEVEL OF PRINTER 
/PRINTER SHOULD BE AT LEVEL 4 

;TE3T THAT PRINTER WILL NOT INTERRUPT ABOVE LEVEL 3 

nil mil mm I II mm nil II mm IIIIIIIIIIIIIIIIIIIIIIII II iiiiiiiii 



0C2620 


01270f 


000340 




19$: 


MOV 


«PR7, 


-R5 


;SET FIRST LEVEL 


002624 


104420 






20$: 


CHECK 






;CHECK CONTROL 


002626 


012737 


002730 


000200 




MOV 


#23$. 


r200 


;SET INTERRUPT RETURN 


002634 


012737 


000340 


000202 




MOV 


#PR7i 


r202 


;SET PRIORITY 7 ON INTERRUPT 


002642 


0C5777 


176246 






TST 


@LPS 




?CHECK FOP ERPOR 


002646 


100002 








BPL 


21S 




?0K/ ERROR CLEAR 


002650 


104020 








ERROR 


20 




;ERR0R BIT SET 


002652 


000764 








BR 


20$ 




;retest 


GC2654 


1C5777 


176234 




21$: 


TSTB 


8LPS 




;CHECK READY 


002660 


100402 








BMI 


22$ 




>0K/ READY SET 


002662 


104021 








ERROR 


21 




JREADY BIT NOT SET 


002664 


000757 








BR 


20$ 




?RETEST 


0C2€66 








22$: 










002666 


010546 








MOV 


R5/-( 


[SP) 


??PUT NE'« PS ON STACK 


002670 


012746 


002676 






MOV 


364S< 


r-(SP) 


;;pnT NEW PC ON STACK 
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002674 


000002 




002676 






002676 


052777 


000100 


002704 


000240 




002706 


042777 


000100 


0C2714 


16270? 


000040 


002720 


020527 


000140 


002724 


001404 




002726 


000736 




002730 


022626 




002732 


104022 




002734 


000733 





002736 
002740 
002746 
002752 
002754 
002756 
002760 
002764 
002766 
002770 
002772 
002772 
002774 
003000 
0C3C02 
003002 
003010 
003012 
0C3C20 
003022 

003024 
0C2032 
003034 
003040 
003042 
003C50 
003056 
003060 
0C3C64 
003066 
003066 



176210 
176200 



64S: 



RTI 

BIS 
NOP 
BTC 
SUB 
CMP 
BEQ 
BR 

CMP 

ERROR 

BR 



#BIT6,@LPS 

tfBlT6,@LPS 

#40#R5 

R5,#PR3 

24S 

20$ 

(SP)4,(SP)+ 

22 

20S 



;;POP NEW PC AND PS 

;SET PRINTER INT. ENABLE 

;DELAy 

;CLEAH PRINTER INTi ENABLE 

;SET NEXT LEVEL 

JLEVEL 3? 

;VES, CONTINUE NEXT TEST 

;NC, TEST THIS LEVEL 

; RESTORE STACK 
;INTERRUPT ABOVE LEVEL 3 
;RETEST 



///// 

;test 



////////////////////////////////////////////////////////////////// 

ABILITY OF PRINTER TO INTERRUPT AT ALL PRICRITY LEVELS BELOW 4 



;////////////////////////////////////////////////////////////////////// 



003024 
176142 



104420 
012737 
CC5777 
100002 
10402C 
000767 
1C5777 
100402 
104021 
000762 

010546 
012746 
000002 

052777 
000240 
042777 
1C402? 
000745 

042777 
022626 
162705 
002336 
012737 
012737 
005046 
012746 
0C0C02 



000137 006644 



000100 
000100 



000100 
000040 



000137 
002174 



24$: 



25$: 



26$: 



65$: 



176104 
176074 



176062 27$: 



000200 
000202 



66$: 



CHECK 

MOV 

TST 

BPL 

ERROR 

BR 

TSTB 

BMI 

ERROR 

BR 

MOV 

. MOV 

RTI 

B,IS 

NOP 
BIC 
ERROR 
BP 

BIC 
CMP 
SUB 
BGE 
MOV 
MOV 
CLR 
MOV 
RTI 

JMP 



#27$, 200 

@LPS 

25$ 

20 

24$ 

SLPS 

26$ 

21 

24$ 

R5,-{SP) 
#65$, -(SP) 



#BIT6,@LPS 

#BIT6,0LPS 

23 

24$ 

#BIT6,@LPS 

(SP)4,(SP)+ 

#40, R5 

24$ 

#137,200 

#START,202 

-(SP) 

#66$, -(SP) 



?check for control 
iset interrupt return 
;check for error 
;0k, error clear 
?errdr bit set 
;retest 
;check ready 
;0k, ready set 

;READY CLEAR 

;retest 

;?PUT new PS ON STACK 

;;P0T new pc on stack 

JJPOP new PC AND PS 

;SET PRINTER INTR- ENABLE 

?DELAY 

;CLEAR PRINTER INTR. ENABLE 

;N0 INTERRUPT BELOH LEVEL 4 

?RETEST 

;CLEAR PRINTER INTR. ENABLE 

PRESET STACK 

;SET NEXT LEVEL 

?RETEST IF NOT DONE ALL LEVELS 

;RESET INSTRUCTIONS AT 200-202 

;?POT NEW PS ON STACK 
;?PUT NEW PC ON STACK 
?;PaP NEW PC AND PS 
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003072 


104413 




003074 


01270^ 


003204 


003100 


012701 


000036 


C03104 


01270C 


000055 


003110 


104416 




003112 


104414 


001164 


003116 


104401 


016035 


CC3122 


010537 


00313C 


003126 


104401 




003130 


000000 




003132 


104401 


016067 


CC3136 


1C4421 




003140 


104420 




003142 


104414 


001166 


003146 


104414 


015777 


CC3152 


C10537 


0G316C 


003156 


104414 




003160 


000000 




003162 


104414 


016006 


0C3166 


022525 




003170 


005715 




003172 


001351 




003174 


104414 


0011O2 


003200 


000337 


006644 


003204 


031440 


000040 


003210 


027063 


000065 


0C3214 


032G40 


O0OC4O 


003220 


027065 


000065 


003224 


033040 


000040 


003230 


033440 


000040 


003234 


034C4C 


00004C 


003240 


027070 


000065 


003244 


030461 


000040 


003250 


031061 


000040 


0C3254 


032061 


000C40 


003260 


000000 





;TEST1 - TOP OF FORM SWITCH TEST 
TESTl: 



3$: 



1$: 



PRTHDR 




;PRINT TEST HEADER 


MOV 


#4$,R5 


;SET TABLE POINTER 


MCV 


#30.,R1 


;SET CHAR COUNT 


MOV 


#55,R0 


;SET DASH CHAR 


MLOAD 




?LCAD DASHED LINE 


PRINT 


,SCR 


;PRINT LINE 


TYPE 


,T1MSG3 


JTYPE INSTRUCTIONS 


MOV 


R5,l$ 


;SET SWITCH SETTING FOR MESG 


TYPE 






.WORD 







TYPE 


,T1MSG4 


;FINISH INSTRUCTIONS 


HOLD 




;WAIT FOR OPERATOR 


CHECK 




KHECK FOP CONTROL 


PRINT 


,$FF 


;ISSUE FORM FEED 


PRINT 


,T1MSG1 


?PRINT REFERENCE LINE 


MOV 


R5,2$ 


;SET FORM FEED LENGTH FOR MESG 


PRINT 






-WORD 







PRINT 


,T1MSG2 


;FINISH MESG 


CMP 


(R5)+,{R5)+ 


;INC TABLE POINTER 


TST 


(R5> 


>CHECK TABLE TO SEE IF DONE TEST 


BNE 


3$ 


;FINISH TEST 


PRINT 


,SLF 


^ADVANCE PAPER WHEN DONE 


JMP 


EXIT 


;EXIT TEST 


.ASCIZ 


/ 3 / 


;F0RM FEED SWITCH SETTINGS 


.ASCIZ 


/3.5/ 




.ASCIZ 


/ 4 / 




.ASCIZ 


/5.5/ 




.ASCIZ 


/ 6 / 




.ASCIZ 


/ 7 / 




.ASCIZ 


/ 8 / 




.ASCIZ 


/8.5/ 




*ASCIZ 


/U / 




iASCIZ 


/12 / 




.ASCIZ 


/14 / 




.WORD 





;END of TABLE 
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iiininiimiiniiiimiimi iniiimimmmnmmiiiimnmn 

;TEST2 - PRINT SPEED TIHING 

; 

;A swirl PATTERN IS PRINTED FoR ONE FULL MINUTE 

>WHILE THE NUMBER OF LINES PRINTED IS COUNTED. 

?TIMING WILL BE DONE BY KWH-L/KWll-P CLOCK OTION IF EITHER AVAILABLE- 

;OTHERWISE, MANUAL TIMING WILL BE USED TO OBTAIN APPROX. PRINT TIMINGS. 

; 

;IF A HARDWARE SWITCH REGISTER IS NOT AVAILABLE, THIS TEST 
;CANNOT BE RUN WITHOUT A CLOCK OPTION BEING AVAILABLE- THE 
;PROGRAM WILL AUTOMATICALLY SKIP THIS TEST IF IT CANNOT BE RUN4 



003262 


104413 






TEST2: 


PRTHDR 




;PRINT TEST HEADER 


003264 


012737 


003fOC 


C06610 




MOV 


#SPD/TaRTN 


;SET TIME OUT RETURN 


003272 


005004 








CLR 


R4 


;CLEAR LINE COUNT 


003274 


1C5737 


001155 






TSTB 


CKFLAG 


?TEST CLOCK FLAG 


003300 


001417 








BEQ 


4$ 


;N0NE THERE/ MANUAL TIMING 


0C3302 


0C24C7 








BLT 


1$ 


;kkii-p 


003304 


013737 


006612 


006606 




MOV 


MINCNT/CNTR 


?SET KWll-L CLOCK COUNT 


003312 


012777 


000100 


175620 




MOV 


#BIT6,0LKS 


;ENABLE CLOCK INTERRUPT 


003320 


000427 








BR 


T2SP 


;START PRINTING 


003222 


013777 


006612 


175606 


1$: 


MOV 


MINCNT,@CSBR 


;SET CLOCK COUNT 


003330 


012777 


000105 


175576 




MOV 


#1O5,0PLKS 


;START CLOCK 


003336 


000420 








BR 


T2SP 


JSTART PRINTING 


003340 


023727 


001142 


177570 


4S: 


CMP 


SWR,#177570 


;CLECK SU REG ADR 


0C3346 


0C1406 








BEQ 


2S 




003350 


104414 


016134 






PRINT 


,T2EM 


;CONTINUE IF HARDWARE 


003354 


104401 


016134 






TYPE 


/T2EM 


;PRINT ERRORS MESG 


003360 


000137 


006644 






JHP 


EXIT 


;EXIT TEST 


0C3364 


104401 


015253 




2$: 


TYPE 


/MANMSG 


;PRINT INSTRUCTIONS 


003370 


032777 


010000 


175544 


3S: 


BIT 


#SW12,0SiR 


;SW12 UP? 


003376 


001774 








,BEQ 


3$ 


;N0, WAIT FOR START 


0C3400 


012702 


000041 




T2SP: 


MOV 


#41,R2 


;SET START CHAR 


003404 


010200 






1$: 


MOV 


R2,R0 


;SET CHAR 


003406 


013701 


001150 




2S: 


MOV 


WIDTH, Rl 


;SET COLUMN COUNT 


0C3412 


1C4415 






3$: 


LOAD 




nOAD CHAR 


003414 


005301 








DEC 


Rl 


JDEC CHAR COUNT 


003416 


001407 








BEQ 


4S 


;BRANCH if DONE LINE 


003420 


005200 








INC 


RO 


;next char 


003422 


020027 


000177 






CMP 


R0,#177 


;CHECK CHAR 


003426 


001371 








ONE 


3S 


;0K, CONTINUE 


003430 


012700 


000040 






MOV 


1^40, RO 


;SET CHAR = SPACE 


003434 


000766 








BR 


3$ 


>CONTINUE 


003436 


1C4414 


001162 




4S: 


PRINT 


i-SLF 


;PRINT LINE 


003442 


005204 








INC 


R4 


;INC LINE COUNT 


003444 


105737 


001155 






TSTB 


CKFLAG 


;»JSING CLOCK TIMING? 


003450 


001006 








BNE 


5S 


;YES, BYPASS MANUAL TIMING 


003452 


032777 


010000 


175462 




BIT 


#SW12,0SWR 


;SW12 DOWN? 


003460 


001002 








BNE 


5S 


;N0, CONTINUE 


003462 


000137 


003500 






JMP 


SPD 


;YES/ EXIT PRINTING ROUTINE 


003466 


005202 






5$: 


INC 


R2 


;INC START CHAR 


CC3470 


020227 


000177 






CMP 


R2/#177 


;CHECK IT 
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003474 001343 
003476 000740 



003500 


012700 


000177 


003504 


104415 




003506 


104401 


015470 


CC3512 


1C4414 


015470 


003516 


105737 


001155 


003522 


001004 




003524 


104401 


015511 


0C3530 


1C4414 


015511 


003534 






003534 


010446 




003536 


004737 


012650 


003542 


104417 




003544 


010446 




003546 


104405 




CC3550 


1C4414 


015522 


003554 


104401 


015522 


003560 


013746 


001150 


003564 


104405 




CC3566 


104401 


015551 


003572 


013746 


001150 


003576 


004737 


012650 


003602 


104417 




0C3604 


1C4414 


015551 


003610 


00013*7 


006644 



BNE 


IS 


BR 


T2SP 


;////////////////////////// 


;RQUTINE TO PRINT/TYPE MEASl 


>HII nil II Nil III 11 III! Ill 


SPD: MOV 


#177, RO 


LOAD 




TYPE, 


PRSPl 


PPINT 


,PRSP1 


TSTP 


CKFLAG 


BNE 


IS 


TYPE 


,PRSP2 


PRINT 


,PRSP2 


1$: 




MOV 


R4,-(SP) 


JSR 


PC,SSB2D 


CNLOAD 




MOV 


R4,-(SP) 


TYPDS 




PPINT 


,PRSP3 


TYPE 


,PRSP3 


MOV 


WIDTH, -(SP) 


TYPDS 




TYPE 


,PRSP4 


MOV 


WIDTH, -(SP) 


JSR 


PC,$SR2D 


CNLOAD 




PPINT 


,PRSP4 


JHP 


EXIT 



?0K, CONTINUE 
;RESET START CHAR 



1 1 II 1 1 III I II nil III i/uiiiii I III I I/I iinii III/ II I II II nil 

INT/TYPE MEASURED PRINT SPEED FOR TEST 2- 

iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiii 

JSET RUBOUT CHAR 
;CLEAR CHAR BUFFER 
;START MESG 



;USING CLOCK? 

;YES, BRANCH 

>ADD WORD "APPROXIMATELY" TO MESG 



;;PUSH R4 ON STACK 
/CONVERT # 

;load # 

?;pusH R4 on stack 

>TYPE # 

>l0ad more of mesg 

;#col0mns on stack 

;type # 

>type end of mesg 

?# columns on stack again 

/CONVERT « 

;LOAD fr 

;PRINT MESG ON LA180 

?RXIT TEST 
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.SBTTL PRINTING TESTS 



//////////////////////// 

?TEST20 - DATA TRA 









;this 


TEST PRI 


NTS 16 LIN 








;PATTERN 










;/////////////////////// 


003614 


104413 




TEST2( 


I: PRTHDR 




003616 


012703 


052452 




MOV 


»"*U,R3 


003622 


012702 


000020 




MOV 


i<16.,R2 


003626 


010300 




IS! 


MOV 


R3/R0 


003630 


0137C2 


00115C 




MOV 


WIDTH, Rl 


003634 


104415 




2S: 


LOAD 




003636 


000300 






SWAB 


RO 


003640 


005301 






DEC 


«1 


003642 


00137^ 






BNE 


2$ 


003644 


000303 






SWAB 


R3 


003646 


104414 


001162 




PRINT 


/$LF 


003652 


005302 






DEC 


1^2 


0C3654 


0C13€4 






BNE 


IS 


003656 


000137 


006644 




JMP 


EXIT 



/////////////////////////////////////////////// 

NSFER PATHS TEST 

ES OF ALTERNATING *'S AND U'S IN A CHECKERBOARD 

/////////////////////////////////////////////// 

;print test header 
?set first char pair 
;set line count 
;set char pair 
;set column count 
;load char 
;set next char 

;DEC COLUMN COUNT 

;FINISH LINE 

;SET NEXT LINF START CHAR 

;PRINT LIKE 

?DEC LINE COUNT 

;FINISH TEST 

;EXIT WHEN DONE 
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;TEST21 - HEAD POSITIONING TEST 

;THIS TEST PRINTS A SINGLE LINE QF ALTERNATING O'S AND SPACES 
;THEN FILLS IN THE SPACES WITH X'S ONF AT A TIME. 



003662 


1C4413 




TEST21: 


PPTHDR 




;PRINT TEST HEADER 


003664 


013701 


001150 




MOV 


WIDTH, PI 


;SET COLUMN COUNT 


003670 


012700 


000060 


IS: 


MCV 


#60, RO 


;SET CHAR 


€03674 


1C4415 






LOAD 




;lcad chaf 


003676 


005301 






DEC 


Rl 


?DEC CHAR COUNT 


003700 


001405 






BEQ 


2S 


;PRINT LINE WREN LOADED 


003702 


01270D 


000040 




MCV 


«40,R0 


;SET SPACE CHAR 


0G3706 


1C4415 






LOAD 




;LCAD SPACE 


003710 


005301 






DEC 


Rl 


;dec char count 


003712 


001366 






BNE 


IS 


;FINISH LINE 


003714 


104414 


001164 


2S: 


PRINT 


,$CR 


;PRINT LINE 


003720 


omc7 


000002 




MOV 


ff2,R2 


;SET FIRST CHAR COUNT 


003724 


012700 


000040 


3$: 


MOV 


H0,RO 


;SET SPACE CHAR' 


003730 


010201 






MOV 


R2,R1 


;get char count 


003732 


005301 






DEC 


Rl 


;SUBTRACT ONE 


0C3734 


1C441C 






MLOAD 




;L0A0 SPACES 


003736 


012700 


000130 




NOV 


ft'X,RO 


;SET X CHAR 


003742 


104415 






LOAD 




;load X 


003744 


104414 


001164 




PRINT 


/SCR 


;PRINT LINE 


CC375C 


0627C2 


00C0C2 




ADD 


«2,R2 


;ADD 2 to CHAR COUNT 


003754 


020237 


001150 




CMP 


02, WIDTH 


;D0NE LINF? 


003760 


101761 






BLOS 


3$ 


;N0, FINISH LINE 


003762 


1044H 


001162 




PRINT 


/SLF 


;YES, ADVANCE PAPER 


CC3766 


0CO137 


C06644 




JMP 


EXIT 


;EXIT TEST 
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003772 


104413 




003774 


012702 


000002 


0f4C00 


0137C1 


00115C 


004004 


020127 


000177 


004010 


00340? 




004012 


012701 


000177 


0C4016 


104414 


004054 


004022 


005301 




004024 


001405 




0C4C26 


012700 


0C0C55 


004032 


104415 




004034 


005301 




004036 


001367 




OC4040 


1C4414 


001162 


004044 


00530? 




004046 


001354 




004050 


000137 


006644 


004C54 


004057 


000134 



;TEST22 - BACKSPACE TEST 

; 

}2 LINES OF X'S INTERSPACED WITH DASHES WILL BE PRINTED BY PRINTING A SLASH, 

;EXECUTING a backspace, and then printing a BACKSLASH TO 

JCOMPLETE EACH X CHAR. 

;A maximum of 127 COLUMNS WILL BE PRINTED BY THIS TEST- 



TEST22: PRTHDR 



3$: 



MOV 


#2/H2 


MOV 


WIDTH,R1 


CMP 


Rl,#127. 


BLE 


2$ 


MOV 


#127., HI 


PRINT 


,10$ 


DEC 


Rl 


BEQ 


3$ 


MOV 


#55, RC 


LOAD 




DEC 


Rl 


BNE 


2S 


PRINT 


/SLF 


DEC 


R2 


BNE 


IS 


JMP 


EXIT 



;PRINT TEST HEADER 
;SET LINE COUNT 
;SET COLUMN COUNT 
;CHECK # COLUMNS 
^GREATER THAN 127? 
;YES, SET TO 127 

;load slash-bs-backslash 
;dec cloohn count 
;print line if done 
;set ascii of dash 
?load dash char 
;oec column count 
;finish line 
;print line 
?dec line count 
;finish test 

;EXIT TEST 



-ASCIZ <57><10><134> 
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;TEST23 - CHARACTER GENERATOR TEST 

; 

;TtiIS TEST PRINTS A SINGLE LINE (30 CHARACTERS LONG) OF EACH PRINTABLE CHAR 
^PRECEDED BY A LINE OF ALL SPACES 

ti II III II 1 1 III 1 1 mi I milium mini nnuimuimi III mm III III 



004060 


104413 




TEST23: 


FRTHDR 




JPRINT TEST HEADER 


004062 


012700 


000040 




MOV 


«40,R0 


;SET FIRST CHAR 


0C4C66 


01270! 


000036 


IS: 


MOV 


#30.,R1 


;SET CHAR COUNT 


004072 


104416 






HLOAD 




;L0AD LINE 


004074 


104414 


001162 




PRINT 


/SLF 


;PRINT LINE 


004100 


005200 






INC 


RO 


;SET NEXT CHAR 


C04102 


020C27 


00C177 




CMP 


R0,«177 


;CHAR = RUBOUT? 


004106 


001367 






BNE 


IS 


;N0, FINISH TEST 


004110 


000137 


006644 




JMP 


EXIT 


;EXIT TEST 
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;////////////////////////////////////////////////////////////////////// 



;TEST24 - 



NON-PRINTABLE CHARACTER TEST 



004114 


104413 




TEST24: PRTHDR 




004116 


012702 


000041 




MOV 


S41/R2 


004122 


012705 


000036 




MOV 


#30.,R5 


004126 


0137C1 


0C115C 




MUV 


WIDTH, Rl 


004132 


012703 


000377 




MOV 


#255. ,R3 


004136 


160103 






SUB 


n,R3 


004140 


005004 






CLR 


R4 


CC4142 


162703 


CCC035 


2S: 


SUB 


lt29.,R3 


004146 


002402 






BLT 


3S 


004150 


005204 






INC 


R4 


004152 


000773 






BR 


2S 


004154 


0C500? 




3$: 


Cf.P 


R3 


004156 


162701 


000377 


4$: 


SUP 


#255-, Rl 


004162 


005401 






NEG 


Rl 


004164 


160301 






SUB 


R3,R3 


004166 


004737 


004320 




JSR 


PC, 10$ 


004172 


013701 


001150 




MOV 


MIDTH,R1 


004176 


010200 






MOV 


S2,R0 


0C42O0 


lC441f 




5$: 


LOAD 




004202 


005301 






DEC 


Rl 


004204 


001407 






BEG 


6$ 


004206 


005200 






INC 


RO 


0C4210 


020027 


CC0177 




CMP 


R0,»177 


004214 


001371 






BNF 


5$ 


004216 


012700 


000040 




MOV 


»40/R0 


004222 


000766 






BR 


5$ 


C04224 


01C3C1 




c$: 


MOV 


R3,R1 


004226 


004737 


004320 




JSR 


PC, 10$ 


004232 


104414 


001162 




PRINT 


,$LF 


004236 


CC53C5 






DEC 


R5 


004240 


003015 






BGT 


8$ 


004242 


105737 


001154 




TSTB 


TLOOP 


004246 


001006 






3NE 


7$ 


004250 


032777 


040000 174664 


BIT 


#SW14,@SWR 


004256 


001002 






BNE 


7$ 


004260 


000137 


006644 




JMP 


EXIT 


004264 


012705 


000036 


7S: 


MOV 


#30.,R5 


004/70 


0C50C3 






CLR 


R3 


004272 


000401 






BR 


9$ 


004274 


060403 




as: 


ADD 


K4,K3 


0^4276 


0137C3 


00115C 


9S: 


MOV 


WIDTH, Rl 


004302 


005202 






INC 


R2 


004304 


020227 


000177 




CMP 


R2,#177 


004310 


001322 






BNE 


4$ 


0C4312 


0327C2 


00004] 




MCV 


Jt41,R2 



>THIS TEST PRINTS A 30 LINE SWIPL PATTERN «ITH NON-PRINTABLE CHARACTERS 
;L0ADE0 BEFORE AND AFTER THE PRINTING CHARACTERS TO TEST ALL AREAS OF THE 
;ChAPACTEP BUFFER IN THE LA180. IF THIS TEST IS LOOPED ON, THE SWIRL 
;PATTERN HILL CONTINUE, 30 LINES PRINTED EACH TIME THE TEST IS LOOPED. 

;PRINT TEST HEADER 

;SET START CHAR 

>SET LINE COUNT 

;GET COLUMN COUNT 

?SET BUFFER SIZE 

;SUPTRACT COLUMNS COUNT 

;CLEAR CHAR INC COUNT 

;DIVIDE NON-PRINT CHAR COUNT BY 29 

;R4 = NON-PRINT CHAR INC COUNT 

;CLEAR NON-PRINT CHAR COUNT 2ND BLOCK 
?CALCULATE # NON-PRINT CHARS, 1ST BLOCK 



;L0AD 1ST BLOCK OF NON-PRINT CHARS 

;SET # PRINTABLE CHARS (COLUMN COUNT) 

>SET FIRST PRINT CHAR 

JLOAD PRINTABLE CHAR 

;DEC CHAR COUNT 

JRRANCH IF DONE PRINTABLE CHARS 

?NEXT CHAR 

;ChECK CHAR 

;0K - CONTINUE 

;RESET CHAR = SPACE 

;CCNTINUR 

;SET tf NON-PRINT CHARS, 2ND BLOCK 

;L0AD 2ND BLOCK NON-PRINT CHARS 

;PRINT LINE 

;DEC LINE COUNT 

;CONTINUE TEST 

;LOOP OK TEST? 

;YES, INITIALIZE 

;lcop on test? 

;YES, INITIALIZE 

;exit test 

;RESET line COUNT 

;clea?? non-print char count 

?continue swirl 

;inc ncn-print char count, 2nd block 

;reset column count 

;tnc start char 

;CHECK start CHAR 

;0Kr continue 
;reset start char 
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004316 000717 



BP 4$ ?CCNTINUE 

;RGUTINE TO LOAD NQN-PRINTABLE CHARACTERS FOR TEST 24. 



004320 


0C57C1 


004322 


001430 


004324 


005000 


004326 


104415 


004330 


0C53C1 


004332 


003424 


004334 


005200 


004336 


020027 


0C4342 


0C1774 


004344 


020027 


004350 


001771 


0C4352 


020C27 


004356 


001766 


004360 


020027 


004364 


001763 


0G4366 


020027 


004372 


001760 


004374 


020027 


004400 


001751 


004402 


0C0751 


004404 


000207 



lOS: 


TST 


Rl 


;test 


CHAP COUNT 




PEG 


14$ 


;return if zero 


lis: 


CLR 


RO 


;S£T FIRST non-print CHAR 


12$: 


LOAD 




JLOAU 


CHAR 




DEC 


Rl 


;DEC char count 




5LE 


14$ 


;return if done 


13$: 


INC 


RO 


JNEXT 


CHAR 




CMP 


R0,#7 


?CHAR 


= BELL ? 




EEQ 


13$ 


;yes. 


NEXT CHAR 




CMP 


R0,#10 


;CHAR 


= BS? 




BEG 


13$ 


;VEs, 


NEXT CHAR 




CMP 


R0,frl2 


?CHAR 


= LF? 




B=:o 


13$ 


;yes. 


NEXT CHAR 




CMP 


R0,#14 


;CHAR 


= FF? 




BEG 


13$ 


;vEs, 


NEXT CHAR 




CMP 


R0,?15 


;CHAR 


= CP? 




PEC 


13$ 


/YES, 


NEXT CHAR 




CMP 


R0,#40 


KHAR 


= SPACE? 




B'=:q 


US 


;yes. 


RESET CHAR 




BR 


12$ 


;CONT] 


[NUE 


14$: 


RTS 


PC 


;return 



W 
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;////////////////////////////////////////////////////////////////////// 



;TEST25 



BUFFER TEST 



;THIS TFST checks the character buffer of the LA180 WHILE PRINTING 
JFOUR LINES OF NUMBERS (WITH 2 ELANK LINES BETWEEN THE FIRST AND SECOND 
;L1NE)- THESE LINES CAN BE USEP TO CHECK THE PROPER PRINTING WIDTH- 
;ANY E PRINTED INDICATES AN INCCRRECT LOAD OR BUFFER ACTION. 



004406 


104413 




0C441O 


0127C1 


00002C 


004414 


012700 


000105 


004420 


104416 




004422 


012700 


000177 


CC442€ 


1C4415 




004430 


00500? 




004432 


013701 


001150 


004436 


012700 


000061 


004442 


1C4415 




004444 


005301 




004446 


001414 




004450 


005202 




0C4452 


C202;7 


000144 


004456 


002771 




004460 


012700 


000063 


004464 


020227 


000202 


CG447C 


0C27€4 




004472 


012700 


000062 


004476 


000761 




004500 


104414 


001162 


004504 


012701 


000400 


004510 


012700 


000105 


004514 


104416 




004516 


104414 


001162 


004522 


0127C1 


000376 


004526 


012700 


000105 


004532 


104416 




004534 


012700 


000177 


OC4540 


K4415 




004542 


104414 


001162 


004546 


012701 


000400 


004552 


012700 


000105 


0C4556 


lC441f 




004560 


013701 


OOllbO 


004564 


012700 


000060 


004570 


005002 




C04572 


1C4415 




004574 


005301 




004576 


001407 




004600 


005202 




004602 


020227 


000143 


004606 


002771 




004610 


012700 


000061 


004614 


000766 





1$: 



PRTHDR 




;PRINT TEST HEADER 


MOV 


#16-/ Rl 


;SET CHAR COUNT 


MOV 


tt'E,R0 


?SET E CHAR 


MLOAD 




?LOAD BUFFER 


MOV 


#177/R0 


JSET RUBQUT CHAR 


LOAD 




;CLEAR BUFFER 


CLR 


R? 


?CLEAR CHAR COUNT 


MOV 


WIDTH/Rl 


;SET COLUMN COUNT 


MOV 


#61, RO 


;SET CHAR 


LOAD 




;L0AD CHAR 


DEC 


Rl 


;dec column count 


BEG 


2$ 


;PRINT line WHEN LOADED 


INC 


R2 


>INC CHAR COUNT 


CMP 


R2,#100- 


;dqne ones? 


BLT 


1$ 


;no, continue 


MOV 


#63, RO 


;SET next CHAR 


CMP 


R2,#130. 


;done 3'S? 


BLT 


IS 


;no, continue 


MOV 


#62, RO 


;yes, set next char 


BR 


1$ 


;continoe loading characters 


PRINT 


rSLF 


;print line 


MOV 


#256. ,R1 


;SET CHAR COUNT 


MOV 


#'E,RO 


;SET E CHAR 


MLOAD 




;L0AD BUFFER 


PI^INT 


,SLF 


;PRINT BLANK LINE 


MOV 


#254. ,R1 


;SET CHAR COUNT 


MOV 


#'E,RO 


;SET E CHAR 


MLOAD 




;L0AD BUFFER 


MCV 


#177, RO 


;SET RUBOUT CHAR 


LOAD 




;CLEAR BUFFER 


PRINT 


,SLF 


JPLANK LINE 


MOV 


#256. /Rl 


;SET CHAR COUNT 


MOV 


#'E,RO 


;SET E CHAR 


MLOAD 




;LCAD BUFFER 


MOV 


WIDTH, Rl 


?SET COLUMN COUNT 


MOV 


#60, RO 


;SET CHAR 


CLR 


R2 


;CLEAR CHAR COUNT 


LOAD 




;LCAD CHAR 


DEC 


Rl 


;dec column count 


BRQ 


4$ 


;PRINT LINE WHEN LOADED 


INC 


rt2 


;INC CHAR COUNT 


CMP 


R2/#99. 


;DCNE ZEROS? 


BLT 


3$ 


;N0, CONTINUE 


MOV 


#61, RO 


;VES, SET NEXT CHAR 


BR 


3S 


/CONTINUE 
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CG4616 


1C4414 


001162 


4S: 


PRINT 


,$LF 


;PRINT LINE 


004622 


012701 


000400 




MOV 


#256. ,R1 


;SET CHAR COUNT 


004626 


01270C 


000105 




MOV 


#'E,RO 


;SET E CHAR 


004632 


1044U 






MLOAD 




;lcau buffer 


004634 


0127CC 


000177 




MOV 


#177/R0 


?SET PUBOUT CHAR 


004640 


104415 






LOAD 




jcleap buffer 


004642 


012700 


000060 




MOV 


#60, RO 


;set char 


004646 


012702 


000011 




MOV 


#9.,R2 


;?ET GROUP COUNT 


004652 


0137C1 


001150 




MOV 


WIDTH, Rl 


;SET CHAR COUNT 


004656 


104415 




5S: 


LOAD 




;load char 


004660 


005307 






DEC 


R2 


;DEC GROUP COUNT 


004662 


001010 






BNE 


7S 


;finish group 


CC4664 


0052CC 






INC 


RO 


;SET NEXT CHAF 


004666 


020027 


000072 




CMP 


R0,#72 


;gcod char? 


004672 


103402 






BLO 


6S 


?YES, continue 


004674 


012700 


000060 




MCV 


#60, RO 


;NC, reset CHAR TC ZERO 


0C4700 


0127C2 


000C12 


6S: 


MOV 


#10.,P2 


>RESET group COUNT 


004704 


005301 




7$: 


DEC 


Rl 


?DEC CHAR COUNT 


004706 


00136? 






BNE 


5$ 


;finish line 


004710 


104414 


001162 




PRINT 


/SLF 


;PRINT LINE 


GC4714 


0127C1 


0004CC 




MOV 


#256. ,R1 


?SET CHAR COUNT 


004720 


012700 


000105 




MOV 


#-E,R0 


>SET E CHAR 


004724 


10441f 






MLOAD 




;load buffer 


004726 


012700 


000061 




MOV 


#61, RO 


;SET CHAR 


004732 


0137C1 


001150 




MOV 


WIDTH/Rl 


;SET CHAR COUNT 


004736 


104415 




8$: 


LOAD 




;LGAD CHAR 


004740 


005200 






INC 


RO 


;S£T NEXT CHAR 


004742 


020027 


000072 




CMP 


HO, #72 


>GCOD CHAR? 


0C4746 


1C34C2 






BLO 


9$ 


;YES, CONTINUE 


004750 


012700 


000060 




MOV 


#60, RO 


>RESET CHAR 


004754 


005301 




9S: 


DEC 


Rl 


;DEC CHAR COUNT 


004756 


0013b7 






BNE 


8$ 


;finish line 


0C4760 


1C4414 


001162 




PRINT 


,SLF 


;PRINT LINE 


004764 


000137 


006644 




JMP 


EXIT 


?EXIT TEST 
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0C417C 


1C441? 




TKbT^f: 


I'RTHUP 




00477? 


012703 


005050 




MTV 


»6S,P3 


004776 


012707 


000003 


IS: 


MOV 


tt3/H2 


005002 


011300 




-iS: 


MOV 


(HJ),RO 


0CbC04 


0C1417 






HKQ 


5S 


00b006 


013701 


001150 




MHV 


WIDTH, HI 


OO-iOl? 


10441'^ 




JSi 


i.iiftn 




005014 


000300 






SWAH 


KO 


005C16 


0C53C1 






URC 


HI 


001)020 


001374 






PNK 


3S 


005022 


005302 






UFC 


K2 


005024 


001403 






HKQ 


4$ 


0r5026 


1C44K 


001164 




IRINT 


/$CR 


005032 


0007fc? 






P» 


25 


005034 


104414 


001162 


4S: 


PPINT 


,r.LF 


005040 


0057 23 






TflT 


(RJ)* 


005C42 


00075'' 






liR 


IS 


005044 


0001 37 


006644 


5$: 


JMp 


KXIT 


005050 


20105 




oS: 


.Asrii 


/K / 


0C5C52 


040f4r 






.A.iCII 


/ l-l/ 


005054 


0201 U 






.a::''! I 


/M / 


005056 


021440 






.Asri I 


/ fi/ 


0050oO 


000000 






.WljHl) 






iimiiiiu lunmiim nil iniiimi minmniiimmumimiiii 

;TKST2o - nVFFFRINT TEST 

;TJi1£ TFST PHINTS FCUH LINfc:S OF ALTERNATING CHARACTER? AND Sl'ACFS 
;1N A CliKCKKRPOARD PATTERN. EACH LINK IS CVEPPPINTED TWICE. 

}iii iiinii iiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii iiiiiiiiiiiiiimmu 

; PR I NT TEST HEADEP 
?SKT TAPLF POINTER 
;SFT OVERPRINT COUNT 
;GFT char PAIR 
JEXIT IF DUNK TEST 
;SFT COLUfN cnuNT 
;LliAD C»'AP 
>SFT NEXT CHAR 
J PEC COLUMN COUNT 
? FINISH LTNF 

;nFr uverprint count 
;hrancii if dune overprint 
;print line 

;CrNTINUE 
;PHINT LINE 

;1nc taiu.e pointer 
;print next line 
;exit test 



;knd hf taiu.k 
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}iii iiiiimiiiiiiiiii mill II iiiiiiiiiiiiiinimiii iiiiiiiiiiiiiiiiii 

; TEST 27 - MULTIPLE LINE F! KD TKST 

;NUMHER PPiriTED indicates NUHPEP ^\ line l EKHS FIII.LOWIN': THAT LINE. 
;DAS!IEn REEKMENCE LINES ARE PRUTI-'D Tl AID IN CHKCKINC PWd'ER 

;LINE feed;;. 

}i II mil I III 1 11 II iiiiii nil II I iiiiiiiiiiiiii III II III I II I iiiii mil I III 



050 6? 


10 4 413 






TE:.Tr 


: PRTHDR 




;!M'1NT TE.'.T HEADER 


0050h4 


0127 03 


005170 






M'lV 


M'>C.,R 1 


;SET TAIU.'-' IMIINTER 


05 070 


111 346 






lO: 


Mtivri 


(R i>,-(.;p) 


;NI1MIIER ilf'TO STACK 


050 72 


0047 37 


01 2650 






MM 


i'c,$;,n2i) 


Kt.NVERT « 


0r5C7f 


1C4 417 








CNLUAI! 




;LllftD HUMPEP 


05100 


121327 


000001 






CMPP 


{P3),«l 


?TEST II 


005104 


10140^ 








HLI,-. 


/»''. 


; PR I NT |-n|,L DAS" LINE IF 


005106 


012701 


0000 35 






M"V 


« 2 i . , R 1 


;';i-T DASH LI-NCTH 


0C5112 


i/n;7 


000010 






(.MPP 


(R n,ffH. 


;ci":rK II 


0051 ir. 


101411 








PLUS 


40 


;2,4 DP 1 - PHI NT ?'» OASHE.' 


005120 


0004 07 








i!R 


r 


;lt. i<R 3 2 - PRINT )\\ DASHI--.' 


0C5122 


0137 01 


001 i5r 




20: 


MdV 


'ail DTIi,Pl 


;SET CHAR CnUNT 


0051 26 


0201 27 


0000 If 






C"P 


PI, 1(30. 


;':in:rK IT 


0051 12 


103002 








HHI '' 


S", 


;i:k, roNTINUi.; 


05 n 4 


012701 


ccorv 






Mriv 


ino.,Pi 


;:;i;t tu ir 


005140 


005 301 






50: 


Di-C 


R1 


;suiiTRArT ii»'E 


005142 


012700 


000055 




4:. : 


HI IV 


(l5 5,Rn 


;;;hT tash char 


005146 


1044K 








ML!. AD 




;LCAD Dft;;!i link 


0C515n 


unci 








MllVP 


( p n , 1' 1 


;SiT I F ':.HINT 


05152 


1137 00 


001 16? 






Mnyi 


0LF,RO 


;SFT I.F C'lAR 


005l5f, 


I044ir 








MLIIAO 




;f.OAI) LP'S 


005160 


105723 








TSTH 


(W3)4 


; I NC TAMI.F IMIINTER 


(JC5162 


00 3^47 








HGT 


10 


;FINISH TEST 


00516 4 


0001 n 


0066 4 4 






• IMP 


EXIT 


J EX IT TE'-.T 


05170 


001 


00 2 


004* 


50: 


4IIYTK 


1,2/4,H.,16., 


12. ,0 


0517-' 


CK 


r?c 


C40 










05176 


00 
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005200 


104413 




005202 


012701 


000030 


0C5206 


1C4414 


005222 


005212 


005301 




005214 


001374 




005216 


000137 


006644 


005222 


Or5l30 
005226 


000 
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;TEST30 - RIBBCN FEED TEST 

; 

;THIS TEST PRINTS A SINGLE CQLUFN CF 24 LINES OF X'S DOWN THE LEFT 
;HAND MARGIN OF THE PAGE. 

illllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllllll 

TEST30: 



2$: 



PRTWDR 




?PRINT TEST HEADER 


MOV 


#24. /Rl 


;SET LINE COUNT 


PRINT 


/2$ 


;PRINT X - LF 


DEC 


Rl 


;DEC LINE COUNT 


ONE 


1$ 


JFINISH TEST 


JMP 


EXIT 


;EXTT TEST 


.ASCIZ 


/X/<12> 




.EVEN 







nil iniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimiiiiiiiiiiiiiiiii 

;TEST31 - 3ELL TEST 

;THIS TEST WILL SOUND 5 BELLS WHILE PRINTING "BELL TEST" 

'tiiniiiiiiniiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiniiiiiiiii iiiiiiiiiii 



005226 1C4413 

005230 104414 005240 

005234 000137 005262 

005240 041CC7 046105 CC3514 

005246 052040 051505 003524 

005254 00341? 003412 000015 



TEST31: 



PRTHDR 

PRINT 

JMP 



/IS 

$ECP 



;PRINT TEST HEADER 
?DC TEST 
;EXIT TEST 



.ASCI7 <7>/BELL/<7>/ TEST/<7><15><7><12><7><15> 



"«lilP^ 
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.SBTTL END OF PASS ROUTINE 

1. ****»***#**»********************«**** 

;*1NCREWENT THE PASS NUMBFR (SPASS) 

;*IF THERES A MONITOR GO TO IT 

;*IF THERE ISN'T JUMP TO EXIT 



005262 






$EOP: 










005262 


000240 






NOP 








005264 


005237 


005336 




INC 


SPASS 




>?INCHEMENT THE PASS Nl 


0C527O 


042737 


ICCCOO 


C05336 


BIC 


ttlOOCOO/ 


SPASS 


;?DON'T ALLOW A NEG. Nl 


005276 


005327 






DEC 


(PC)* 




??LOOP? 


005300 


000001 




5E0PCT: 


-WORD 


I 






005302 


003013 






bgt 


SDOAGN 




;?YFS 


005304 


012737 






MOV 


(PC)*/@(PC)+ 


??RESTaRE COUNTEP 


005306 


000001 




SENDCT: 


.WORD 


1 






005310 


005300 






$FOPCT 








005312 


013700 


000042 


$GET42: 


MOV 


@«42,R0 




;?GET MONITOR ADDRESS 


CC5316 


CC14Cf 






DEQ 


SDOAGN 




??BPANCH IF NO MONITOR 


005320 


000005 






RESET 






>;CLEAR THE WORLD 


005322 


004710 




SENDAH: 


JSP 


Pr,(RO) 




;;go to monitor 


005324 


000240 






NOP 






;;SAVF room 


Cr5^26 


00024r 






NOP 






;;for 


005330 


000240 






NOP 






;?ACT11 


005332 






$duagn: 










005332 


000137 






JMP 


@(PC)+ 




??RETUHN 


CC5334 


00664^ 




SPTNAD: 


-WORD 


EXIT 






005336 


000000 




SPASS: 


.WORD 







;7NUMBEP fip PASSES 



MAINDEC-11-DZLAE-B MACYll 27(1006) Ol-MftR-77 14:4S PAGE 50 
DZLAEB.Pll 28-FEB-77 15:08 OPTION TESTS 

.SBTTL OPTION TESTS 



imiiimimmmnmmiimmiimiimiimiiiiminimtiiiii 

;TEST 5C - SECONDAPV CHARACTER SET 

; 

}uniumumiiiiiiiiiiitiinmminiinimiiniiiiummimn 



005340 


104413 




TEaT50: 


PPTHDR 




;PRINT TEST HEADER 


005342 


012737 


000004 


005422 


MOV 


H/T50PCT 


?SET PAIR COUNT 


005350 


104414 


005424 


is: 


PRINT 


/T50M1 


;PRIIiT LEADER # 1 


0C5354 


012737 


C00G40 


005440 


MOV 


#40,CHLD 


JSET CHAR (SET % 1) 


005362 


004737 


005442 




JSP 


PCPRTSET 


?PRINT ENTIRE CHARACTER SET 


005366 


104414 


005430 




PRINT 


,T50M2 


;PRINT LEADER # 2 


005372 


012737 


000240 


C05440 


MCV 


ff24C,CHLD 


;SET CHAR (SET # 2) 


005400 


004737 


005442 




JSR 


PC/PRTSBT 


JPRINT ENTIRE CHARACTER SET 


005404 


104414 


001162 




PRINT 


/SLF 


;BLANK LINE 


0C5410 


0C5337 


CC5422 




DEC 


T50PCT 


;DECREMENT PAIR COUNTER 


005414 


001355 






BNE 


IS 


;CONTINUE IF NOT ZERO 


005416 


000137 


006644 




JMP 


EXIT 


;EXIT TEST 


005422 


OCOCOC 




T50PCT: 









005424 


030443 


000075 


T50M1: 


•ASCIZ 


/»1=/ 




005430 


031043 


000075 


T50M2S 


*ASCIZ 


/«2=/ 




005434 


020040 


000040 


SP3: 


.ASCIZ 


/ / 


;2 SPACES 


0C5440 


OCOCCC 




CHLD: 







KHARACTEP HOLD 


005442 


013701 


001150 


PRTSETS 


HOV 


WIDTH^Rl 


;SET COLUMN COUNT 


005446 


162701 


000003 




SUB 


fl3/Rl 


>ADJUST COUNT 


005452 


013700 


005440 


1$: 


MOV 


CHLD^RO 


?FETCH CURRENT CHARACTER 


005456 


104415 






LOAD 




;L0AD CHAR 


005460 


005301 






DEC 


Rl 


;DEC char COUNT 


0C5462 


0C3413 






BLE 


3S 


;BRANCH IF » OF COLUMNS IS EXHAUSTED 


005464 


005237 


005440 


2S: 


pc 


CHLD 


^INCREMENT CHAR 


005470 


013702 


005440 




MOV 


CHLD,R2 


;COPY IT 


005474 


042702 


177600 




BIC 


#177600,R2 


?STRIP LEFT BITS 


CC5500 


0227C? 


00C177 




CMP 


»177,P2 


?IS RESIDUE = 177? 


005504 


001412 






BEQ 


4S 


;¥ES, BRANCH, LAST CHAR OF SET IS LOADED 


005506 


000761 






BR 


IS 


;GC LOAD NEXT CHAR 


0C5510 


1C4414 


001162 


3$: 


PRINT 


rSLF 


;PRINT PARTIAL SET 


005514 


013701 


001150 




MOV 


WIDTH, Rl 


JSET COLUMN COUNT AGAIN 


005520 


162701 


000003 




SUB 


#3,R1 


;adjust count again 


005524 


104414 


005434 




PRINT 


rSP3 


;LCAD THREE SPACES 


0C5530 


0C0755 






B? 


2$ 


;C0NTINUE LOADING SET 


005532 


104414 


001162 


4$: 


PRINT 


/SLF 


?PPINT LINE 


005536 


000207 






RTS 


PC 


;retdrn 
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.SBTTL MAINTENANCE AIDS 



«*«**«ft«*««*ttft**««*ac »««*«« 



;TEST60 - LIFE TEST 

/ 

;THIS TEST PRINTS 2 FULL LINES CF EACH PRINTABLE CHARACTER 

;THE SECOND LINE IS OVERPRINTED 4 TIMES TO CONSERVE PAPER 

;AT the END 0'' EACH PASS THROUGH THE ENTIRE PRINTABLE CHARACTER 

;SET, THE PASS COUNT WILL BE PRINTED ON THE LA180. 



005540 


005037 


005652 


TEST60: 


CLR 


PASCNT 


;CLEAH PASS COUNT 




CC5544 


1C441? 




1$: 


PRTHDR 




JPRINT TEST HEADER, FEED BLANK LINES 


005546 


012700 


000041 




MOV 


#41, RO 


;SET FIRST CHAR 




005552 


013701 


001150 


2$: 


MOV 


WIDTH,R1 


;SET COLUMN COUNT 




005556 


104416 






MLOAO 




;LQA0 LINE 




OC5560 


1C4414 


001162 




PRINT 


,SLF 


;PRINT LINE 




005564 


01270? 


000005 




MOV 


#5,R2 


;SET OVERPRINT COUNT 




005570 


013701 


001150 


3S: 


MOV 


WIDTH, Rl 


;SET COLUMN COUNT 




005574 


104416 






MLOAD 




;LCAD LINE 




CC557e 


1C441« 


001164 




PRINT 


,SCR 


JPRINT LINE 




005602 


00530? 






DEC 


R2 


?DEC OVERPRINT COUNT 




005604 


001371 






ENE 


3S 


;FIHISH OVERPRINT 




005606 


104414 


001162 




PRINT 


,SLF 


^ADVANCE PAPER 




0C5€12 


OC520f 






INC 


RO 


;SET NEXT CHAR 




005614 


020027 


000177 




CMP 


R0,#177 


;test char 




005620 


001354 






BNE 


2$ 


;0K, continue 




005622 


005237 


005652 




INC 


PASCNT 


;iNC PASS count 




CC5626 


1C4414 


015102 




PRINT 


/PASMSG 


?LOAD PASS COUNT MESG 




005632 


013746 


005652 




MOV 


PASCNT,-(SP) 


JJPUSH PASCNT ON STACK 




005636 


004737 


012650 




JSR 


PC,SSB2D 


;convert # 




005642 


104417 






CNLQAD 




;lcao # 




0C5644 


1C4414 


001162 




PRINT 


/SLF 


;PRINT MESG 




005650 


000735 






BR 


IS 


;START NEXT PASS 




005652 


000000 




pascnt: 


4W0RD 





?PASS COUNT 
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005654 


1C4413 




005656 


000422 




005660 


013701 


001150 


005664 


017700 


173252 


005670 


04270C 


177600 


005674 


104415 




005676 


020027 


000015 


005702 


001410 




005704 


020C27 


000012 


005710 


001405 




005712 


020027 


000040 


005716 


103404 




0C5720 


0C53C1 




005722 


000402 




005724 


013701 


001150 


005730 


032777 


001000 


005736 


001402 




005740 


000000 




005742 


000750 




005744 


0C57C1 




005746 


003346 




005750 


001403 




005752 


012700 


000177 


005756 


1C4415 




005760 


104414 


001162 


005764 


000735 





;////////////////////////////////////////////////////////////////////// 



;test61 



SCOPE DRIVE ROUTINE 



;THIS test will load a CHARACTEF set in switch REGISTER BITS 0-6 

>IF SWITCH 9 IS DOWN, FULL LINES WILL BF LOADED & PRINTED (LF). 

>IF SWITCH 9 IS UP, THE CHAR WILL BE LOADED ONCE AND THE PROGRAM 

;WILL HALT. NO LINE FEEDS OH CARRIAGE RETURNS WILL BE SENT BY THE 
;FROGRAH. 

;PRINT TEST HEADER 

;CHECK SWITCH REG FIRST 

;SET COLUMN COUNT 

;GET CHARACTER 

;MASK UNWANTED BITS 

?LGAD CHAP 

;CHAR = CR? 

;YES, RESET CCLUMN COUNT 

;CHAR = LF? 

?yes, resft column count 
;non-printable char? 

;YES, DON'T DEC COLUMN COUNT 

;DEC COLUMN COUNT 

;CONTINUE 

;RESET COLUMN COUNT 

;TEST SWITCH 9 

?PRINT FULL LINE 

;ONE CHAR - HALT 

;GET NEXT CHAR 

;TEST COLUMN COUNT 

^CONTINUE IF NOT DONE LINE 

;LDADED MORE THAN WIDTH? 

;YES, CLEAR BUFFER 

;PRINT LINE, ADVANCE PAPER 
;CDNTINnE 



TEST6] 


l: PPTHDP 






BR 


11$ 


10$: 


MOV 


WIDTH, Rl 


1$: 


MOV 


|aSWK,R0 




BIC 


D''C177,P0 




LOAD 






CMP 


R0,#15 




BEO 


11$ 




CMP 


R0,#12 




BEQ 


US 




CMP 


R0,#40 




BLO 


12$ 




DEC 


Rl 




PR 


12S 


11$: 


MOV 


WIDTH, Rl 


12$: 


BIT 


#SW9,0SWR 




BEG 


2$ 




HALT 






BR 


IS 


2S: 


TST 


Rl 




BGT 


IS 




BEQ 


3$ 




MOV 


#177, RO 




LdAD 




3S: 


PRINT 


,$LF 




BR 


10$ 
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;TEST62 - LINE PRINT TEST 

;THIS TEST POINTS FULL LINES CONTINUOUSLY OF WHATEVER CHARACTER 
;TS TYPED ON THE CONSOLE KEYEOAPD. TO CHANGE CHARACTERS, RESELECT 
;THIS TEST. AN ERROR MESG WILL BE PRINTED IF THIS TEST IS SELECTED 
;AND A CONSOLE TERMINAL DOES NCT EXIST. 



005766 


104413 




CC5770 


1C5737 


001173 


005774 


100473 




005776 


104401 


015205 


006002 


105777 


173072 


006006 


lC037f 




006010 


104420 




006012 


017700 


173064 


006016 


010046 




0C6C20 


0C4737 


010344 


006024 


0127 46 


000200 


006030 


004737 


010344 


006034 


013701 


001150 


Cr6C4C 


lC441f 




006042 


104414 


001162 


006046 


00077? 





is: 



PRTHDR 




;PRINT TEST HEADER 


TSTB 


STPFLG 


;CHECK IF TERMINAL EXISTS 


BMI 


TERP 


;EXIT if NONE 


TYPE 


,TCFAR 


;type instr 


TSTB 


gTK? 


?WAIT FOR KYBD FLAG 


BPL 


2$ 




CHECK 




;CHECK CHAR FOR CONTROL 


MOV 


'?TKB,R0 


;GET CHAR 


MCV 


RO,-(SP) 


;CH»R ONTO STACK 


JSK 


FCSTYPEC 


;ECHO CHAR 


MOV 


#CRLF,-(SP) 


;SEND CR-LF 


JSR 


PCSTYPEC 




MCV 


WIDTH, Rl 


;SET COLUMN COUNT 


MLOAD 




;lcad line 


PRINT 


,SLF 


;PRINT LINE 


BR 


IS 


;CONTINUE 
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0C€C50 


1C4413 




006052 


105737 


001173 


006056 


100442 




006060 


104401 


015205 


ccec64 


1044C1 


ooiiei 


006070 


105777 


173004 


006074 


100375 




006076 


104420 




C0610C 


0177Cr 


17277C 


006104 


010046 




006106 


0C4737 


010344 


006112 


10441? 




Cfeil4 


020C27 


0CCC15 


006120 


001003 




006122 


012746 


000012 


006126 


000413 




0G6130 


020027 


000C12 


006134 


00100? 




006136 


012746 


000015 


006142 


000405 




CC6144 


C20C27 


0C0014 


006150 


001347 




006152 


012746 


000200 


006156 


004737 


010344 


006162 


0C074? 




006164 


104414 


015225 


006170 


000137 


006752 



mi I mi 1 1 mil II mm mm III III m mi imm III mil II III mil HI 

;T£ST63 - CHARACTER PRINT TEST 

i 

>THIS TEST LOADS WHATEVER CHARACTER IS TYPED ON THE CONSOLE KEYPOARD 

;T0 the LA180/ CHARACTER BY CHARACTER- 

;IF THIS TEST IS SELECTED AND A CONSOLE TERMINAL DOES NOT EXIST/ 

;AN ERROR MESSAGE KILL BE PRINTED. 

} III mm I III mm mum iiiiiiiimi mil mil III mm mm III III 

;print test header 

;check if terj»i!sial exists 

;exit if none 

;type instr 

?send cr-lf 

?wait for kybd flag 

?sait for flag 

;check char for control 

;GET CHAR 

JCHAR ONTO STACK 

;ECH0 CHAR 

;lcad char 

?send lf after CR 



;SEND CR AFTER LF 



1$: 



4$: 



PRTHDP 




t«;tp 


STPFLG 


BMI 


TERR 


TYPE 


/TCHAR 


TYPE 


#SCRLF 


TSTB 


(PTKS 


BPL 


1$ 


CHECK 




MOV 


@TKB,RC 


MCV 


RO/-(SP) 


JSR 


PC/STYPEC 


LOAD 




CMP 


RO,#CR 


BNE 


2S 


HOV 


«LF/-(SP) 


BR 


4S 


CMP 


RO,»LF 


BNE 


3S 


MOV 


ffCR,-(SP) 


BR 


4S 


CMP 


RC/»FF 


BNE 


IS 


MOV 


#CRLF/-(SP) 


JSR 


PC/STYPEC 


BR 


IS 


PRINT 


/NCMSG 


JMP 


SELECT 



?SND CRLF AFTER FF 



;PRINT NO CONSOLE MESG 
;RETURN TO SELECT TEST (HALT) 
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iiiiiiiiiiiiiiimiiiiiiiiimiiiiiiiiiiiiiimmiiimiiiiiiiiiiiiii 

TEST 64 - SELECTED PATTERN PRINT TEST 

1) TYPE DESIRED CHARACTERS INCLUDING/ WHERE APPROPRIATE/ LA180 
PRINT COMMANDS (IE./ LF OR CR CR FF). TERMINATE STRING BY 
TYPING CTL-A. PRINTING WILL BEGIN. 

OR 

2) TYPE A DESIRED PATTERN (TO FE AUTOMATICALLY REPEATED UNTIL 
; PREVIOUSLY SPECIFIED # OF COLUMNS HAS BEE?I FILLED). 

; DC NOT INSERT ANY PRINT COMMANDS. TERMINATE PATTERN BY TYPING 
; CTL-D. AFTER PROPAGATING THE PATTERN TO THE PROPER « OF COLUMNS 
; AN LF PRINT COMMAND WILL BE INSERTED AND PRINTING WILL BEGIN. 



006174 


104413 




TEST64: 


PRTf'DR 




006176 


105737 


001173 




TST3 


STPFLG 


006202 


lC077fi 






EMI 


TERR 


006204 


104401 


015415 




TYPE 


/T64MSG 


006210 


104401 


015464 


ACCEPT: 


TYPE 


/TWCBEL 


0C6214 


0127C1 


016174 




MOV 


ffTAPL64/Pl 


006220 


012700 


000177 




MOV 


#177/^0 


006224 


104415 






LOAD 




006226 


105777 


172646 


2S: 


TSTB 


0TKS 


006232 


1C0375 






BPL 


2$ 


006234 


104420 






CHECK 




006236 


017700 


172640 




MHV 


@TKB/RO 


006542 


0427Cr 


17760C 




BIC 


«177600/P0 


006246 


02270C 


000001 




CMP 


#1/R0 


006252 


001435 






BEQ 


CTLA 


006254 


0227CP 


000002 




CMP 


»2/PC 


006260 


00144C 






BEG 


CTLP 


006262 


010046 






MOV 


RO/-(SP) 


006264 


004737 


010344 




JSR 


PC/STYPEC 


ocep7o 


0C572e 






TST 


(SP) + 


006272 


110021 






MOVP 


R0/(R1)* 


006274 


020027 


000015 




CMP 


R0/#CR 


006300 


001003 






BNE 


4S 


006302 


01274C 


000012 




MOV 


#LF/-(SP) 


006306 


000413 






BP 


8S 


006310 


020027 


000012 


4$: 


CMP 


RO/#LF 


005314 


001003 






BNE 


6S 


0C6316 


032746 


0CC015 




MOV 


ltCR/-(SP) 


006322 


000405 






BP 


8$ 


006324 


020027 


000014 


6S: 


CMP 


RO/#FF 


006330 


001336 






BNE 


2$ 


0C6332 


012746 


000200 




NOV 


»CRLF/-(SP) 


006336 


004737 


010344 


8S: 


JSR 


PC/STYPEC 



;TC stop PRINTING AND ENTER A NFW PATTERN TYPE CTL-SPACE. 
;TC SELECT A NEW TEST TYPE DELETE/RUEOUT. 
;Ta CHANGE <j OF COLUMNS TYPE CTL-C- 
/ 

nil miiiiiiiiiiiimiiiiimiiimiiiiiiiiiiiiiiimiiiiiiiimmm 

;PRINT TEST HEADER 

KHECK IF CONSOLE TERMINAL EXISTS 

;EXIT if NONE 

>TYPE BRIEF INSTRS 

;RING CONSOLE BELL TWICE 

;set pointer leftmost in table 

;reset printer buffer pointer. 

>wait for console kbd flag 
kkeck fop kbd control characters 
;anr check switches also. 
;same char to rc 
;strip unwanted bits 

;branch if control a 

JORANCH IF control R 

;CHAR ONTO STACK 

;ECHO CHARACTER TO CONSOLE 

JADJUST STACK 

KHAR TO PRINT TABLE 

;SEND LF AFTER CR (TO CONSOLE) 



;SEND CR AFTER LF (TO CONSOLE) 



;SEND CRLF AFTER FF (TO CONSOLE) 
JCQNTINUE ACCEPTING PATTERN 
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006342 


005726 






TST 


(SP)4 


000344 


0CO73r 






BR 


2S 


006346 


022701 


016174 


ctla: 


CMP 


#TABL64,R1 


006352 


00144"^ 






BEC 


PRPAT 


0f!e354 


010137 


0C6512 




MOV 


Rl/ENDADR 


006360 


00044? 






PR 


PRPAT 


006362 


022701 


016174 


CTL9: 


CMP 


#TABL64,Rl 


CCe366 


0C1437 






BEQ 


PRPAT 


006370 


162701 


016174 




SUB 


#TAnL64,Rl 


006374 


013737 


001150 006506 


MOV 


yiDTH^COLCTR 


006402 


010137 


006510 




MOV 


Rl/CHACTR 


006406 


062701 


016174 




ADD 


#TABL64,R1 


00641? 


01270? 


016174 




MOV 


«TABL64,R2 


006416 


163737 


006510 006506 


SUB 


CHACTR/COLCTR 


006424 


112221 




prcpat: 


MOVB 


(H2)4#(R1)+ 


CC6426 


0C5337 


0065G6 




DEC 


COLCTP 


006432 


003001 






BGT 


IS 


006434 


000407 






BR 


DOHCOL 


006436 


005337 


006510 


is: 


DEC 


CHACTR 


0C6442 


0C14C1 






BEQ 


DUNPAT 


006444 


000767 






BR 


PROPAT 


006446 


01270? 


016174 


dunpat: 


MOV 


#TABL64/R2 


006452 


000764 






BR 


PROPAT 


CC6454 


112721 


00CC12 


OUNCCL: 


MCVP 


#LF,(R1)+ 


006460 


010137 


006512 




MOV 


Rl/ENDADR 


006464 


00040C 






BR 


PRPAT 


006466 


0127C1 


016174 


PRPAT: 


MOV 


#TABLe4/Rl 


006472 


112100 




1$: 


MOVP 


{R1)+,R0 


006474 


104415 






LOAD 




CC647€ 


020137 


006512 




CMP 


Rl/ENDADR 


006502 


001771 






BEQ 


PRPAT 


006504 


000772 






BR 


IS 



006506 000000 
006510 OCOOOC 
006512 016240 



colctr: 

CHACTR: 

ENDADR: #TABL64+44 



;ADJUST STACK 

KQNTINUE ACCEPTING PATTERN 

;IF POINTER IS LEFTMOST 

;RESUME printing PREVIOUS PATTERN 

;CURRENT POINTER TO ENDADR 

;G0 print NEW PATTERN 

;1F POINTER IS LEFTMOST 

;RESUHE PRINTING PREVIOUS PATTERN 

;GET PATTERN LENGTH INTO Rl 

;GET # OF COLUMNS INTO COUNTER 

;GET # CF CHARS INTO COUNTER 

;RE-ESTABLISH POINTER 

JFSTARLISH SECONDARY POINTER 

;REMAINING columns into COLCTR 

;PROPAGATE PATTERN TO # OF SPECIFIED COLUMNS 



;RE-ADDRESS pattern 

;insept la180 print command 
;go print repeated pattern 

;set pointer leftmost 

;L0AD CHAP (FROM RO) TO LA180 

;ALSC CHK CONSOLE KBD AND CPU SWS 

;END OF TABLE DATA? 

?YES, PRINT IT OVER- 

;N0, CONTINUE LOADING LA180 BUFFER 

;COLUMN COUNTER 

;CHARACTER COUNTER 

;HCLDS ENDING ADDR+1 OF PRINT DATA. 



006514 005037 001120 

006520 004737 001764 

006524 CC4737 002C32 

006530 000137 006644 



TEST76: CLR SERSW 

JSH PC/QUOl 

JSR PC,QU02 

JMP EXIT 



?clfar switch (to parallel) 
;initilize actfst and select driver 
;type intf hi3c if console 
;exit test. 



006534 


012737 


052525 


001120 


TEST77: 


MOV 


#52525/SERSK 


CC6542 


0C4737 


001764 






JSR 


PC/GUOl 


006546 


004737 


002032 






JSR 


PC/QU02 


006552 


000137 


006644 






JMP 


EXIT 



;set switch (tc serial) 

>initilize actfst and select driver 

;TYPE INTF MISC IF CONSOLE 
JEXIT TEST 
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006556 
006562 


004737 
000177 


006614 
000022 


DCI: 


JSP 
JMP 


PC/SRDCI 
(?T0RTN 


CC6566 
006572 
006574 
0C6576 
006602 


005337 
001401 
000002 
CC4737 
000177 


006606 

0P6U4 
000002 


LKSPV: 

1$: 


DEC 
BFC 
RTI 
JSP 
JMP 


CNTR 
1$ 

PC/SRDCI 

aTQPTN 


006606 
00661C 


000000 

ocoocr 




CNTR: 
TORTN: 


-WORD 

.WOPD 



C 


006612 


007020 




mincnt: 


.WGPD 


7020 



006614 


105737 


001155 




SRCCI: 


TSTB 


CKFLAG 


006^20 


CC14in 








BEt. 


2S 


006622 


002404 








BLT 


IS 


006624 


042777 


000100 


172306 




BIC 


piT6,(aLKS 


006632 


000403 








BR 


2$ 


0G6634 


042777 


000100 


172272 


1$: 


PIC 


»3IT6/@PLKS 


00664? 


000207 






2$: 


RTS 


PC 



-SBTTL CLOCK INTERRUPT SERVICE ROUTINES 

;DISABLE KWll-P INTERRUPT 
niME OUT RETURN 

;DEC TIME COUNT 

;TIME Ol'T? 

;NC, RETURN 

;DISABLE Ki«ll-L INTERRUPT 

;TI«'E OUT RETURN 

;KW11-L TIMING COUNT 
;TIME OUT RETURN ADDRESS 

;60 HZ LINE FPEQ. MINUTE COUNT 

;SET TO 5670(8) FOR 50 HZ. LINE FREQ. 

nil mil mil mi II imimii I III III! II II III! nil II mi I III mminu 

;SUBROUTINE TO DISABLE CLOCK OPTION INTERRUPTS 

}iiiiiiiimmmiiiiiiiiiiiiiiimiiiiiiiiiiiiiiiiiiiiiiiiiiiiiimii 

;CHECK CLOCK OPTION FLAG 
;RETUPN IF NONE 

;franch if Kwii-p 

JDISABLE KWll-L INTERRUPT 

/RETURN 

;DISAPLE KWll-P INTERRUPT 
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006€44 


004737 


007140 


006650 


032777 


040000 


CC6e56 


ocicie 




006660 


032777 


000400 


006666 


001031 




006670 


1C5737 


001154 


006674 


001007 




006676 


105737 


001153 


006702 


001402 




C06704 


0C0137 


007510 


006710 


005237 


001146 


006714 


013700 


001146 


006720 


0C63CC 




006722 


005760 


013356 


006726 


003005 




006730 


001767 




0C6732 


012737 


000C2C 


006740 


000765 




006742 


012706 


OOllOO 


006746 


000170 


013356 



.SBTTL TEST EXIT ROUTINE 



172264 
172254 



EXIT: 



CC1146 



2$: 

3$: 



4S: 



JSR PC/KVBDF KHECK FOR KYBD FLAG 

BIT »SH14,@SKR ;LQOP ON TEST SWITCH? 

ONE 3$ ;YES, RETURN TO TEST 

BIT ftS'«}8/PSWR JMANT SW REG TEST SELECTION? 

ONE SELECT ;YES, SELECT TEST (HALT) 

TSTB TLOOP ?KYBD CTRL - LOOP ON TEST? 

BNE 3S ;YES, return TO TEST 

TSTB TRONE ;KYBD CTRL - RUM TEST ONCE? 

BEQ 2$ ;N0/ CONTINUE 

JMP TSEL ;YES, SELECT TEST 

INC STSTNM ;INCREMENT TEST NtJMBER 

MOV STSTNM, RO ;GET NEW TEST NUMBER 

ASL RO ;SET TABLE POINTER 

TST TAT(RO) ;CHECK ADDRESS IN TABLE 

BGT 4S }QK, GO TO TEST 

BEQ 2S ;ZERO, SKIP TEST 

MOV #20/$TSTNM ;END OF SEQ. - RESET TEST # TO 20 

BR 3S >TEST NEW NUMBER 

MOV #STACK,SP ?RESET STACK 

JMP 8TAT(R0) ;gO TO TEST 
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. ************** 



******************* 



ft******** 



.SETTL ROUTINES TO SELECT DESIFED TEST 



006752 


0G4737 


006614 


SELECT: 


JSR 


PC/SRDCI 


006756 


105037 


001152 




CLRP 


STRONE 


006762 


105037 


001153 




CLRB 


TRONE 


006766 


1C5C37 


001154 




CLRP 


TLOOP 


006772 


004737 


007140 




JSR 


?C,KYBDF 


006776 


000000 




1$: 


HALT 




007000 


032777 


000400 172134 




BIT 


#SVJ8,raSWR 


007006 


001403 






BEQ 


2$ 


007010 


112737 


177777 001152 




MOVB 


#-l/STRONE 


0C7C16 


0177Cr 


17212C 


2$: 


MOV 


LaSWP,PC 


007022 


042700 


177700 




SIC 


#''C77,R0 


007026 


010037 


001146 




MOV 


RO/STSTNM 


007C32 


0C63Cr 






ASL 


PO 


007034 


005760 


013356 




TST 


TAT(RO) 


007040 


003744 






BLE 


SELECT 


007042 


012706 


001100 




MQV 


#STACK,SP 


0C7C46 


cconc 


01335f 




JMP 


LaTAT(PO) 






007C52 


0C4737 


007056 


010046 


007060 


005000 


007C62 


032777 


007070 


001401 


007072 


005300 


CG7C74 


1337C0 


007100 


001402 


007102 


000137 


C07106 




007106 


012600 


007110 


000002 



00714C 



00040C 172052 



001152 



mi mil 1 1 II I III HI nmiii II I III! I III 1 1 III I III III mil mil iinii mi 

;RuUTINE TO SELECT TEST FROM SH REG, °ITS 0-5 

'iiiiimiiiiiimmmiiiiiiiimmimimiiimiiiimmiiiiiimi 

;CLEAR CLOCK INTER 

JCLEAR PROGRAM CONTROL FLAGS 

;CHFCK IF KYBD FLAG 

;N0 KYBD FLAG - HALT 

;WAIT FOR OPERATOR TO SELECT TEST 

;PRESS CONTINUE WHEN READY 

JCHECK S\jR 

;WANT TO RUN TEST ONCE % HALT 

?YES, SET FLAG 

JNO, CHECK SW REG 

JMASK BITS 0-5 

;SAVE TEST NUMBER 

;SET TABLE POINTER 

;CHECK IF TEST IS IN TARLE 

;N0T THERE, GET NEW SELECTION 

;RESET STACK 

;G0 TO SELECTED TEST 

}iimiimmmiiiiiim nil miiiiiiiiimiiiiiiiiiiiiiiiii iiiiiiiii 

;KLUTINE TC CHECK FOR KYBD OR SW REG CONTROL 
;CALL: CHECK 

mi mm milium iiimiiiimiiiiii III mini mi iiiiiimiiiimi 

;CHECK FOP KYED FLAG 

;?PUSH PO ON STACK 

;CLEAR RO 

JCHECK SW8 

;BRANCH if SW DOWN 

?SET FLAG IF UP 

;CHANGE IN SWITCH? 

;N0, return (CHANGE TO 0402 TO DISABLE SW 8) 

JYES, SELECT TEST (HALT) 

?JPOP STACK INTO RO 
JRETURN 



$CHECK: 


JSR 


PCrKVBDF 




MOV 


RO,-(SP) 




CLR 


RO 




BIT 


#SW8,@SWR 




BEG 


IS 




DEC 


RO 


1$: 


CMPB 


STRONE,R0 




BEQ 


2S 




JMP 


SELECT 


2S: 








MCV 


(SP)4,R0 




RTI 
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}iii mini iimmmiimin III mill iiniiiininmiiiiiiiiimiiii 

>ROUTINE TO «AIT FOP OPERATOR ACTION 

}i imimmimiiiiiiiiiimimiiimiiiiimmmimiiimmmi 



007112 


105737 


001173 


SHQLD: 


TSTE 


STPFLG 


^TERMINAL THERE? 


007116 


100002 






BPL 


IS 


;BRANCH if YES 


007120 


000000 






HALT 




;halt if no 


CC7122 


OC04C5 






BR 


2S 


jpeturn on continue switch 


007124 


104401 


015144 


IS: 


TYPE 


,WTMSG 


;type wait hesg 


007130 


105777 


171744 


3$j 


TSTB 


@TKS 


>KYBD FLAG? 


007134 


100375 






BPL 


3S 


?N0, WAIT FOR FLAG 


0C7136 


000CC2 




2S: 


RTI 




?PETURN 



007140 


105737 


001173 


007144 


100527 




0C7146 


1C5777 


171726 


007152 


100124 




007154 


104406 




007156 


023727 


001142 


0C7164 


0C11C1 




007166 


022716 


000007 


007172 


001076 




C07174 


0C572e 




007176 


005037 


007436 


007202 


005037 


007440 


007206 


104401 


015122 


0C7212 


013746 


000176 


007216 


104402 




007220 


104401 


015132 


007224 


104406 




CC7226 


021627 


000025 


007232 


001003 




007234 


104401 


012242 


007240 


0C0755 




007242 


021627 


000015 


007246 


001011 




007250 


104401 


001161 


007254 


0C5737 


00744C 


007260 


001460 




007262 


013737 


007436 


007270 


000454 




007272 


02 It 27 


000012 


007276 


001011 




007300 


104401 


001161 


007304 


005737 


007440 



mmimiiiimmmimmmmmmiiiiimmmiimimmm 

;routine to check for keyboard flags 

;when locking for control from the console device keyboard 

;calli jsr pc/kybdf 

}nmimmmmmimmmimmmmiimmmiimmmmi 

JTERMINAL THERE? 

;NC, EXIT 

JFLAG SET? 

;ND - EXIT 
2$J RDCHR ;FLAG SET - READ CHAR 

;USING HARDWARE SW REG? 

?0RANCH IF YES 

;CHAR = BEL <007>? 

>BRANCH IF NOT 
55: TST (SF)+ ;RESET STACK 

;CLEAR NEW SW SETTING 

;CLEAR INPUT FLAG 

;type MESG 

;?push swreg on stack 

;type it 

;type more of mesg 
9s: rdchr ;reau ckar 

;char = control-u ? 

;branch if not 

;rcho contrcl-u 

;restart routine 

;CHAR = CR? 

;branch if not 

;ECH0 CR-LF 

;check input flag 

;LEAVE SW SETTINGS ALONE IF NO INPUT 

;SET NEW SW REG 

JRETURN TC TEST 

;CHAR = LF? 

;HRANCH if NOT 

;ECHO CR-LF 

;CHECK INPUT FLAG 



TSTE 


STPFLG 


BMI 


IS 


TSTB 


@tks 


BPL 


IS 


RDCHR 




CMP 


SWR,#SWREG 


BNE 


4S 


CMP 


#7,(SP) 


BNE 


4S 


TST 


(SF) + 


CLP 


20S 


CLR 


30$ 


TYPE 


/DSMSGl 


MOV 


SWREG/-(SP) 


TYPnc 




TYPE 


,DSMSG2 


RDCHR 




CMP 


(SP)/#25 


ENE 


lOS 


TYPE 


,$CNTLU 


BR 


5$ 


CMP 


(SP),#CR 


BNE 


7$ 


TYPE 


,$CRLF 


TST 


30S 


PRO 


6S 


MOV 


20$/SHREG 


BR 


6S 


CMP 


(SP),|tLF 


BNE 


8S 


TYPE 


,SCRLF 


TST 


30$ 
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007310 


001477 






BEQ 


TSEL 


007312 


013737 


007436 000176 




MOV 


20$/SWREG 


007320 


000473 






BR 


TSEL 


007322 


042716 


177770 


8S: 


BIC 


#'*C7,(SP) 


0r7326 


0€2716 


ooocec 




ADD 


#60r(SP) 


007332 


004737 


010344 




JSR 


PC/STYPEC 


007336 


042716 


177770 




BIC 


rC7^(SP) 


007342 


006337 


007436 




ASL 


20$ 


007346 


Cr6337 


007436 




ASL 


20S 


007352 


006337 


007436 




ASL 


20$ 


007356 


062637 


007436 




ADD 


{SP)+,20$ 


C07362 


0C5237 


00744C 




INC 


30$ 


007366 


000716 






BR 


9$ 


007370 


022716 


000177 


4$: 


CMP 


#177, (SP) 


007374 


001001 






BNE 


3S 


CC7376 


CC0444 






BR 


TSEL 


007400 


022716 


000003 


3$: 


CMP 


#3r(SP) 


007404 


001416 






BEQ 


kybdst 


007406 


005716 






TST 


(SP) 


0C7410 


0C1CC4 






BNE 


6S 


007412 


0227 37 


000064 001146 




CMP 


#64,$TSTNM 


007420 


001402 






BEQ 


US 


0C7422 


0C572C 




6$: 


TST 


(SP)* 


007424 


000207 




IS: 


RTS 


PC 


007426 


012706 


001100 


US: 


MOV 


#STACK,SP 


CC7432 


OC0137 


00621C 




JMP 


ACCEPT 


007436 


000000 




20$: 


-WORD 





007440 


000000 




30$: 


»WORD 






;LEAVE SW SETTINGS ALONE IF NO INPUT 

;SET NEW SW REG 

;G0 TO TEST SELECT (VIA KEYBOARD) 

;MASK DIGIT 

;MAKE ASCII 

?PfiINT DIGIT 

;mASK DIGIT 

;SHIFT SWITCH SETTINGS FOR NEW ONE 



;ADD new SWITCH 

;SET INPUT FLAG 

;CONTINUE 

;CHAR = RUBOUT? 

;NC, CHECK AGAIN 

;YES/ GET TEST SELECTION (VIA KEYBOARD) 

;CHRR = CNTL C ? 

;YES/ GET i COLUMNS 

;IS CODF = NUL/ IE4, CTL-SPACE? 

;BRANCH IF NOT 

;IS THIS TEST 64 ? 

;BRANCH IF YES 

;RESET STACK 

?N0/ RETURN 

;fix stack 

;t0 within test 64 

;sw setting input 
;input flag 
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007442 


004737 


006614 


kybdst: 


JSR 


PC^SRDCI 


007446 


104401 


014751 




TYPE 


/COLUMN 


007452 


104410 




2$: 


RDDEC 




007454 


012605 






HOV 


(SP)+,R5 


0C7456 


020527 


000204 




CMP 


R5,»132. 


007462 


003003 






BGT 


IS 


007464 


020527 


000002 




CMP 


R5/»2 


CC7470 


103005 






BHIS 


3$ 


007472 


104401 


001160 


1$: 


TYPE 


,$QUES 


007476 


104401 


001161 




TYPE 


rSCRLF 


007502 


000763 






BR 


2S 


CC7504 


0105 37 


001150 


3$: 


MOV 


R5, WIDTH 



007510 


004737 


006614 


007514 


105037 


001153 


007520 


105037 


001154 


007524 


1C5C37 


001152 


007530 


104401 


014767 


007534 


104407 




007536 


012605 




CC7540 


112500 




007542 


042700 


177600 


007546 


022700 


000003 


C07552 


0C173? 




007554 


020027 


000060 


007560 


103464 




0C7562 


020027 


000067 


007566 


101061 




007570 


042700 


177770 


007574 


006300 




007576 


0C630C 




007600 


006300 




007602 


112501 




007604 


042701 


177600 


007610 


020127 


000060 



^routine to set number of columns from console device kybd 

;clear clock inter 
;type columns message 
;get m columns 
>?pop stack into r5 
;test size of number 

;T00 BIG/ GET AGAIN 

;TEST size AGAIN 

;BRANCK IF OK 

;INPUT ERROR - TYPE QUESTION MARK 

>GET INPUT AGAIN 
;0K, SAVE # COLUMNS 

;RUUTINE TO FETCH TEST # FROM CONSOLE KEYBOARD 
;AND DETERMINE TEST ACTION . 

;TEST NUMBER MUST BE OCTAL, FOLLOWED BY ONE OF THE 
;FOLLOWING CONTROL CHARACTERS: 



; PERIOD . = RUN TEST ONCE AND SELECT NEXT TEST 

/ L = LOOP ON SELECTED TEST 

; 

} S = START TEST SEQUENCE WITH SELECTED TEST 



tsel: 



5$: 



JSR 


PC,SRDCI 


XLRB 


TRONE 


CLRB 


TLOOP 


CLPB 


STRONE 


TYPE 


/SELTST 


RDLIN 




MOV 


(SP)+,R5 


MOVB 


(R5)+/R0 


ETC 


#'*C177/R0 


CMP 


#3/R0 


BEQ 


KYBDST 


CMP 


R0,#60 


BLO 


4S 


CMP 


R0/#67 


BHI 


4$ 


BIC 


rC7,R0 


ASL 


RO 


ASL 


RO 


ASL 


RO 


MOVB 


{R5)*/R1 


BIC 


#'*C177,R1 


CMP 


Rl/#60 



;CLEAR CLOCK INTER 

;CLEAR PROGRAM CONTROL FLAGS 



;type select test mesg 
;get test selection 

;jPOP STACK INTO R5 

?set test # in ro 

;check if char = cntl-c 
;get # columns if cntl-c 
;check if octal number 

;NCT OCTAL - INPUT ERRO 

;N0T OCTAL - INPUT ERROR 
;0K - STORE DIGIT 



;GET SECOND DIGIT 
;CHECK IF AN OCTAL DIGIT 
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007614 


103446 




007616 


020127 


000067 


007622 


101043 




007624 


0427C1 


17777C 


007630 


060100 




007632 


010037 


001146 


CC7636 


CC63CC 




007640 


005760 


013356 


007644 


003432 




007646 


112501 




007650 


C427C1 


177600 


007654 


020127 


000056 


007660 


001004 




007662 


112737 


177777 


007670 


000414 




007672 


042701 


000040 


007676 


022701 


000114 


00770? 


001004 




007704 


112737 


177777 


007712 


000403 




007714 


C22701 


000123 


007720 


001004 




007722 


012706 


001100 


007726 


000170 


013356 


0C7732 


1C44C1 


ooiiec 


007736 


104401 


001161 


007742 


000674 





1$: 



4$: 



BLO 


4S 


CMP 


Rl/#67 


BHI 


4S 


BIC 


#'*C7,R1 


ADD 


Rl/RO 


MOV 


RO/STSTNM 


ASL 


RO 


TST 


TAT(RO) 


BLE 


4$ 


MOVB 


(R5)*/R1 


BIC 


ff'Cni/Rl 


CMP 


Rl/#56 


BNE 


IS 


MQVB 


#-l/TRQNE 


BR 


3S 


BIC 


#BIT5rRl 


CMP 


#'L/R1 


BNE 


2S 


MOVB 


#-l/TL0OP 


BR 


3$ 


CMP 


ft'3,Rl 


BNE 


4S 


MOV 


#STACK,SP 


JMP 


@TAT(RO) 


TYPE 


/SQUES 


TYPF 


/SCRLF 


BR 


5S 



;N0T OCTAL - INPUT ERROR 
;N0T OCTAL - INPUT ERROR 

;0k - mask digit 

;hake complete test number 

;save test number 

;3et table pointer 

jcheck if test is in table 

;N0T IN TABLE/ GET NEW SELECTION 

?GET CONTROL CHAR 

;MASK BITS 

;CHAR = PERIOD? 

/NO/ CONTINUE CHECK 

;YES/ SET FLAG 

;CDNTINUE 

;MASK BIT 5 (ALLOW HPPER OR LOWER CASE) 
;CHAR = L? 
;NQ/ CONTINUE 
;YES/ SET FLAG 
;CCNTINUE 

;CriAR = s? 

;N0/ INPUT ERROR 

;RESET STAClf 

;ALL CK - GO TO SELECTED TEST 

hnput error 

;?rint question mark 

;get new input 
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0C7744 
007752 
007760 
CC7762 
007766 
007772 
010000 
C1CC06 
010014 
010016 
010022 
010C26 
010032 
010034 
010036 

010040 
010042 



; ** ***»«[*» 



t « » « ft ft ft Hr « A « « ft « » «c ft * « « « « « « «r ft « « « « « 



**ft ftftftft* 



SbTTL ERRCR HANDLER ROUTINE 

THIS ROUTINE WILL SAVE THE ERRCR NUMBER AND THE ADR OF THE ERROR CALL 

AND GO TO REPORT ON ERROR 

THE SWITCH OPTIONS PROVIDED B¥ THIS ROUTINE ARE: 

SW15 = 1 HALT ON ERROR 

SW13 = 1 INHIBIT ERROR TYPEOUTS 

SWIO = 1 BELL ON ERROR 



013777 
032777 
001402 
1044C1 
011637 



C01146 
002000 

001156 
010040 

162737 000002 

117737 000034 

032777 020C0C 

001004 

004737 

104401 

0C5777 

100001 

104421 

000002 

000000 
000000 



171172 
171162 



010040 
010042 
171126 



010044 
001161 
171110 



CALL 



SERRCRS MOV 
BIT 
BEQ 
TYPE 

1$: MOV 
SUB 
MOVB 
BIT 
BNE 
JSR 
TYPE 

2$: TST 
BPL 
HOLD 
RTI 



as: 



$errfc: -word 
SITEMb: -word 



$TSTNM,@DISPLAY; 

#BIT10,(aSHR 

1$ 

/SBELL 

(SP),$ERRPC 

#2#SERRPC 

@SERRPC, SITEMB 

#BIT13/§SWR 

2S 

PC, REPORT 

,$CRLF 

eswp 

3S 



;ERROR = EMT & M = ERROR ITEM NUMBER 

DISPLAY TEST NUMBER AND ERROR FLAG 
;BELL on ERROR? 

;no - SKIP 

;RING BELL 

;GET ADDRESS OF ERROR INSTRUCTION 

;STRIP AND SAVE THE ERROR ITEM CODE 

;SKIP TYPEOUTS IF SET 

;SKIP TYPEOUTS 

;G0 TO REPORT ROUTINE 

;HALT OH ERROR IF SET 
;SKIP IS CONTINUE 
;nYNAMIC HALT 

;return 

;LAST ERROR INSTRUCTION EXECUTED 
;ITRM CODE 



MAI^•DEC-ll-DZLAE-B MACYll 27(1006) Ol-MAR-77 14:45 PAGE 65 
DZLAEB-Pll 28-FEB-77 15:08 ERROR HANDLER ROUTINE 



;ERRCR REPORT ROUTINE 

; 

;ERRCR MESSAGE WILL USE THE FOLLOWING FORM: 

;TEST #XX, PCrXXXXXX/ error HXXX/ MESSAGE >»>»»>»» 



010044 


105737 


001173 


REPORT: 


TSTE 


STPFLG 


^TERMINAL EXIT? 


010050 


100435 






BMI 


2$ 


;NG, EXIT 


01CC52 


010C4€ 






MOV 


ROi-(SP) 


;?PUSH RO ON STACK 


010054 


104401 


015044 




TYPE 


,ETSTNO 


?TYPE FIRST PART OF ERROR HESG 


010060 


013746 


001146 




MOV 


$TSTNM,-(SP) 


;?PUSH STSTNM ON STACK 


010064 


104403 






TYPOS 




;TYPE TEST NUMBER 


01CC66 


002 






.BYTE 


2 


;TW0 DIGITS MAX. 


010067 


001 






.BYTE 


1 


;TYPE LEADING ZEROS 


010070 


104401 


015054 




TYPE 


,PCMSG 


;TYPE part OF ERROR MESG 


010074 


013746 


010040 




MOV 


$ERRPC,-(SP) 


;>PUSH SERRPC ON STACK 


CICIOC 


1C44C2 






TYPOC 




;TYPE ERROR PC 


010102 


104401 


015063 




TYPE 


/ERR 


?TYPE MORE OF ERROR MESG 


010106 


013746 


010042 




MOV 


$ITEMB/-(SP) 


;;PUSH SITEMB ON STACK 


010112 


104403 






TYPOS 




;TYPE ERROR NUMBER 


C1C114 


CC3 






.BYTE 


3 


J3 DIGITS MAX. 


010115 


001 






.BYTE 


1 


;TYPE LEADING ZEROS 


010116 


104401 


015076 




TYPE 


/ERRS 


;TYP SPACES 


010122 


013700 


010042 




MOV 


SITEMB, RO 


JGET ERROR NUMBER 


C1Q126 


0C63CC 






ASL 


RO 


>SET TABLE POINTER 


010130 


016037 


013554 010140 


MOV 


EMAT-2(R0),1S 


JSET ERROR MESSAGE ADR 


010136 


104401 






TYPE 




;TYPE error MESG 


010140 


000000 




is: 


4 WORD 







01C142 


01260C 






MOV 


(SP)+/RO 


;jPQP STACK INTO RO 


010144 


000207 




2$: 


RTS 


PC 


;return 
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-SBTTL SAVE AND RESTORE R0-R5 FQUTINES 

;*SAVE R0-R5 
;*CALL: 

;* SAVREG 

>*UPCN RETURN FROM SSAVREG THE STACK HILL LOOK LIKE: 









|*TOP — 


-(♦16) 










;* ♦2 — 


-(♦18) 










;* +4— 


-R5 










;* *6 — 


-R4 










;* +8 — 


-R3 










;**io— 


-R2 










;**12— 


-Rl 










;*+14" 


-RO 




010146 






$SAVREG 


J 




010146 


010046 






MOV 


RO/-(SP) 


C1C150 


010146 






MOV 


Rli--(SP) 


010152 


010246 






MOV 


R2,-(SP) 


010154 


010346 






MOV 


R3,-(SP) 


01C156 


010446 






MOV 


R4,-(SP) 


010160 


010546 






MOV 


R5,-(SP) 


010162 


016646 


000022 




MOV 


22(SP),-(SP) 


C1C166 


016646 


000022 




MOV 


22(SP),-(SP) 


010172 


016646 


000022 




MOV 


22(SP),-(SP) 


010176 


016646 


000022 




MOV 


22(SP)^-(SP) 


010202 


000002 






RTI 










;*RESTORE R0-R5 










;*CALL: 












;* 


RESREG 




C10204 






SRESREG 


: 




010204 


012666 


000022 




MOV 


(SP)*,22(SP) 


010210 


012666 


000022 




MQV 


(SP)+,22(SP) 


010214 


012666 


000022 




MOV 


(SP)*,22(SP) 


010220 


012666 


000022 




MOV 


(SP)*,22(SP) 


010224 


012605 






MOV 


(SP)+,R5 


010226 


012604 






MOV 


(SP)*,R4 


010230 


012603 






MOV 


(SP)+,R3 


010232 


012602 






MOV 


(SP)+,R2 


010234 


012601 






MOV 


(SP)4/R1 


010236 


012600 






MOV 


(SP)+,RO 


01C240 


0C0002 






RTI 





;?PUSH RO ON STACK 

;;POSH PI ON STACK 

?5PUSH R2 ON STACK 

;?PUSH R3 CN STACK 

;;PUSH R4 ON STACK 

;?PUSH R5 ON STACK 

;;SAVE PS OF MAIN FLOW 

;;SAVF PC OF main flow 

;?SAVE PS OF CALL 

;?SAVE PC OF CALL 



;?rf,store pc of call 
;;restore ps of call 

;;RESTORE PC of MAIN FLOW 

;;restore ps of main flow 
;;fop STACK into R5 

?;P0P STACK into R4 

;?PQP STACK into R3 

;?PQP STACK into R2 

;JP0P STACK into Rl 

;?P0P STACK into rc 
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' 'it-kit -k*^ ****** it it ft ******* H* 

.SBTTL TVPE ROUTINE 



************************************* 



010242 


1C5737 


001173 


010246 


100407 




010250 


010046 




010252 


0176CO 


000002 


010256 


112046 




010260 


001005 




010262 


0C5726 




010264 


012600 




010266 


062716 


000002 


010272 


000002 




C1C274 


122716 


000200 


010300 


001004 




010302 


005726 




010304 


104401 


001161 


C1C310 


000762 




010312 


004737 


010344 


010316 


123726 


001172 


010322 


001355 




010324 


013746 


001170 


010330 


105366 


000001 


01C334 


0C277C 




010336 


004737 


010344 


010342 


000772 




010344 


105777 


170534 


010350 


100375 




010352 


116677 


000002 


010360 


0002C7 





;RaUTINE TO TYPE ASCIZ MESSAGES, MESSAGE MUST TERMINATE WITH A BYTE- 
;THE ROUTINE WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 
;NCTE1: SNULL contains the CHARACTER TO BE USED AS THE FILLER CHARACTER 

;note2: sfills contains the numfer of filler characters REQUIRED- 

;note3: sfillc contains the character tc fill after. 

; 

;call: 

; 

; TYPE /HESADR ;MESA0R is address of first char in ASCIZ STRING 



$TYPE: 



TSTB 

BMI 

MOV 

MOV 

MOVP 

BNE 

TST 

MOV 

ADD 

KTI 

CMPB 

BNE 

TST 

TYPE, 

EP 

JSR 

CMPB 

BNE 

MOV 

OECB 
BLT 
JSR 
BR 



STYPEC: TSTB 
BPL 
MOVE 
RTS 



SS: 
6S: 



7S: 



STPFLG 

3$ 

HO,-(SP) 

@2(SP),R0 

(RO)*,-(SP) 

4$ 

(SP) + 

(SP)+,RO 

#2,(SP) 

»CRLF,(SP) 

5S 

(SP) + 

$CRLF 

2S 

PCSTYPEC 

SFILLC, (SP)+ 

2S 

SNULL,-(SP) 

l(SP) 
6$ 

PCSTYPEC 
7S 

aSTPS 
STYPEC 
2(SP),0$TPB 
PC 



?is there a console terminal? 
;branch if no console terminal 

;SAVE RO 

;GET ADR OF ASCIZ STRING 

;PUSH CHARACTER TO BE TYPED ONTO STACK 

;HR if it ISN'T THE TERMINATOR 

;IF TERMINATOR, POP IT OFF STACK 

;restore RO 

;acjust return pc 

;RETURn 

;branch if not <crlf> 

;POP <CR><LF> EQUIV 
;TYPE CR-LF 

;get next char 

?C0 TYPE CHAR 

;IS IT TIME FOR FILLER CHARS? 
;IF NO GO GET NEXT CHAR 
;GET # FILLER CHARS NEEDED 

;and the null char 

;does a null need to be typed? 

;br if no - go pop the null off of stack 

;g0 type null 

;lcop 

;wait until console printer is ready 

;LCAU char to be typed into data REG. 
;RETURN 
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.SBTTL CONVERT BINARY TO DECIMAL AND TYPE ROUTINE 



ii*HHtff»* **■»** ft 



*********** 



«**********«« 



**********:*** 



;*THIS ROUTINE IS USED TO CHANGE ft 16-BIT BINARY NUMBER TO A 5-DIGIT 
;*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT- DEPENDING ON WHETHER THE 
>*NUMBER IS POSITIVE OR NEGATIVE A SPaCE OR A MINUS SIGN WILL BE TYPED 
;*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
;*REPLACED WITH SPACES. 
;*CALL! 

;* MOV NUMr-(SP) ;;PUT THE BINARY NUMBER ON THE STACK 
;* TYPDS ;?G0 TO THE ROUTINE 



010362 






01C362 


010C46 




010364 


010146 




010366 


010246 




01C370 


010346 




010372 


010546 




010374 


012746 


020200 


010400 


016605 


000020 


01C404 


100004 




010406 


005405 




010410 


112766 


000055 


010416 


005000 




010420 


01270? 


010576 


010424 


112723 


000040 


010430 


005002 




010432 


016001 


010566 


010436 


160105 




010440 


002402 




010442 


005202 




010444 


000774 




010446 


060105 




010450 


005702 




010452 


001002 




010454 


1C5716 




010456 


100407 




010460 


106316 




01C462 


103003 




010464 


116663 


000001 


010472 


052702 


000060 


010476 


052702 


000040 


010502 


110223 




010504 


005720 




010506 


020027 


000010 


010512 


0C2746 




010514 


003002 




010516 


010502 




010520 


000764 




010522 


105726 




010524 


100003 




010526 


116663 


177777 


010534 


105013 




01C536 


012605 




010540 


012603 




010542 


012602 





STYPDS: 



2S: 
3$: 



5$: 



6$: 
7$: 



8$: 



9$: 



MOV 

HOV 

MOV 

MOV 

MOV 

MOV 

MOV 

BPL 

NEG 

MOVB 

CLR 

MOV 

MOVB 

CLR 

HOV 

SUB 

BLT 

INC 

BR 

ADD 

TST 

BNE 

TSTB 

3MI 

ASLB 

BCC 

MOVB 

BIS 

BIS 

MOVB 

TST 

CMP 

BLT 

BGT 

HOV 

BR 

TSTB 

BPL 

MOVB 

CLRB 

MOV 

HOV 

MOV 



R0/-(SP) 

R1/-(SP) 

R2/-(SP) 

R3#-(SP) 

R5,-(SP) 

#20200/-(SP) 

20(SP),R5 

1$ 

R5 

S'-i-KSP) 

RO 

#SDBLK,P3 

#' ,(R3)+ 

R2 

$DTBL(R0)^R1 

Rl^RS 

4$ 

R2 

3S 

R1#R5 

R2 

5S 

(SP) 

7$ 

(SP) 

6$ 

1(SP),-1(R3) 

#-0,R2 

H' ,R2 

R2#(F3)+ 

(R0) + 

R0r#10 

2S 

8$ 

R5/R2 

6$ 

(SP)4 

9S 

-1(SP)/-2(R3) 

(R3) 

(SP)+,R5 

(SP)4,R3 

(SP)*/R2 



;?PUSH RO ON STACK 

;;PUSH PI ON STACK 

;;PUSH R2 ON STACK 

;jPUSH R3 ON STACK 

jjpush r5 on stack 

;;set blank switch and sign 

;?get the input number 

;?br if input is pos- 

;?make the binary number pos. 

;;make the ascii rumber neg. 

;;zekc' the constants index 

;?setup the output pointer 

;jset the first character to a blank 

;;clear the bcd number 

;?get the constant 

;jform this bcd digit 

;;br if done 

;jinckease the bcd digit by 1 

}?add back the constant 

;;CHECK IF BCD DIGIT=0 
;jFALL THROUGH IF 
;jSTILL DOING LEADING O'S? 
;?BR IF YES 
??HSD? 

;br if NO 

JYES— SET THE SIGN 

JMAKE THE BCD DIGIT ASCII 

JMAKE IT A SPACE IF NOT ALREADY A DIGIT 

JPUT THIS CHARACTER IN THE OUTPUT BUFFER 

;JUST INCREMENTING 

?CHECK THE TABLE INDEX 

;G0 DO THE NEXT DIGIT 

?G0 TO EXIT 

?GET THE LSD 

JGC CHANGE TO ASCII 

;WAS THE LSD THE FIRST NON-ZERO? 

?BR IF NO 

;YES— SET THE SIGN FOR TYPING 

;SET THE TERMINATOR 

?FaP STACK INTO P5 

?POP STACK INTO R3 

?POP STACK INTO R2 
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01C544 


0126C1 




010546 


012600 




010550 


104401 


010576 


010554 


016666 


000002 


010562 


012616 




010564 


000002 




010566 


023420 




01C570 


0C175C 




010572 


000144 




010574 


000012 




010576 


000004 





SDTBL: 



SUBLK: 



HOV 


(SP)-»,R1 


MOV 


(SP)*,RO 


TYPE 


,SD9LK 


MOV 


2(SP)^4(SP) 


MOV 


(SP)*,(SP) 


RTI 




10000. 




1000. 




100. 




10. 




^3LKW 


4 



;;pap stack into pi 

;?P0P STACK into RO 
;?NOW TYPE THE NUMBER 
?;ADJUST the STACK 

;;RETURN TO USER 
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.SBTTL BINARY TO OCTAL (ASCII) AND TYPE 



010606 
010612 
010620 
010624 
010630 
010632 
010640 
Q1C646 
010654 
010656 
010660 
010662 
010666 
010670 
010674 
010700 
010704 
010710 
01C712 
010714 
010716 
010720 
010722 
010724 
010726 
010730 
01C734 
010736 
010742 
010744 
010746 



017646 
116637 
112637 
062716 
000406 
112737 
112737 
112737 
010346 
010446 
010546 
113704 
005404 
062704 
110437 
113704 
016605 
005003 
0C61C5 
000404 
006105 
006105 
006105 
010503 
006103 
105337 
1C0016 
042703 
001002 
005704 
001403 



000000 
000001 
011033 
000002 

000001 
000006 
000005 



011033 

000006 
011032 
011031 
000012 



011031 



*THIS ROUTINE IS USED TO CHANGE ft 16-BlT BINARY NUMBER TO A 6-DlGIT 

*QCTAL (ASCII) NUMBER AND TYPE IT. 

*STYPOS-— iENTER HERE TO SETUP SUPPRESS ZEROS AND NUMBER OF DIGITS TO TYPE 

*CALL: 

* MOV N0M,-(SP) ;jNUMBER TO BE TYPED 

* TYPOS ;?CALL FOR TYPEOUT 

* aBYTE H /;N=1 TO 6 FOR NUMBER OF DIGITS TO TYPE 

* .BYTE M ;?M=1 OR 

* ;?1=TYPE LEADING ZEROS 

* ?;0=SUPPRESS LEADING ZEROS 
* 

*STYPON— --ENTER HERE TO TYPE OUT WITH THE SAME PARAMETERS AS THE LAST 

*STYPOS OR STYPOC 

*CALL: 

* MOV NUH,-(SP) ;;NUMBER TO BE TYPED 

* TYPON ??CftLL FOP TYPEOUT 



*$TYPOC- 
*CALL: 

* MOV 

* TYPOC 



ENTER HERE FOR TYPEOUT OF A 16 BIT NUMBER 
NUM^-(SP) 



011032 
177770 



STYPOS: MOV 
MOVB 
MOVB 
ADO 

011031 $TYPOC: MOVB 
011033 MOVB 

011030 $TYPON: MOVB 
MOV 
MOV 
MOV 
MOVB 
NEG 
ADD 
MOVB 
MOVB 
MOV 
CLR 
IS: ROL 

BR 
2$: ROL 
ROL 
ROL 
MOV 
ROL 
UECB 
BPL 
BIC 
BNE 
TST 
BEQ 



3$: 



@(SP)^-(SP) 

1(SP)/S0F1LL 

(SP)*/S0M0DE+1 

#2,(SP) 

STYPON 

#1,S0FILL 

#6,SCM0DE+1 

#5/$0CNT 

R3,-{SP) 

R4/-(SP) 

R5^-(SP) 

S0M0DE+1,P4 

R4 

#6/R4 

R4/S0M0DE 

$0FILL/R4 

12(SP)/R5 

R3 

R5 

3S 

R5 

R5 

R5 

R5,P3 

R3 

$OMODE 

7$ 

#177770, R3 

4$ 

R4 

5S 



;? NUMBER TO BE TYPED 
;;CftLL FOR TYPEOUT 

;?pickup the mode 
;;lqad zero fill shitch 
;?number of digits to type 
;;adjust return address 

;;SET THE zero fill switch 
;;SET for six(6) digits 

;?SET THE iteration COUNT 

;jSAVE R3 

;?SAVE R4 

;;SAVE R5 

JJGET THE NUMBER OF DIGITS TO TYPE 

;?SUBTRACT IT FOR MAX. ALLOHED 
;;SAVE IT FOR USE 
;?GET THE ZERO FILL SWITCH 
;;PICKOP THE INPUT NUMBER 
;;CLBAR THE OUTPUT WORD 
;?ROTATE MSB INTO "C" 
;?G0 DO MSB 
;;FORM THIS DIGIT 



;?GET LSB OF THIS DIGIT 
;?TYPE THIS DIGIT? 

;;BR IF NO 

;SGET RID OF JUHK 
;?TEST FOR 
;?SUPPRESS THIS 0? 
;?BR IF YES 
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010750 


005204 




010752 


052703 


000060 


010756 


052703 


000040 


010762 


110337 


011026 


010766 


104401 


011026 


010772 


105337 


011030 


010776 


003347 




011000 


002402 




011002 


005204 




011004 


000744 




011006 


012605 




011010 


012604 




011012 


012603 




011014 


016666 


000002 


011022 


012616 




011C24 


000002 




011026 


000 




011027 


000 




011030 


000 




011C31 


COC 




011032 


000000 





011C34 0C4737 011316 
011040 000137 000000 



4$: 


INC 


R4 




BIS 


#'0,R3 


5$: 


BIS 


#' /R3 




MOVB 


R3,8S 




TYPE 


,8$ 


7$: 


DECB 


SOCNT 




BGT 


2S 




BLT 


6S 




INC 


R4 




BP 


2S 


6S: 


MOV 


(SP)+,R5 




MOV 


(SP)+,R4 




MOV 


(SP)*,R3 




MOV 


2(SP),4(SP) 




hOV 


(SP)+,(SP) 




PTI 




8$: 


iPYTE 







.BYTE 





SOCNT: 


^BYTE 





50FILL: 


*EYTE 





SOMODE: 


.WORD 





slcad: 


JSR 


PC/RSTADR 


LDPTP: 


JMP 






;?DON'T SUPPRESS ANYMORE O'S 
>;MAKE THIS DIGIT ASCII 

?HAKE ASCII IF NOT ALREADY 

;SAVE FOR TYPING 

?GQ TYPE THIS DIGIT 

;COUNT BY 1 

?BR IF MORE TO DO 

;BR IF DONE 

UNSURE LAST DIGIT ISN'T A BLANK 

?G0 DO THE LAST DIGIT 

?RESTOPE R5 

?RESTORE R4 

?PESTORE R3 

?SET THE STACK FOR RETURNING 

JRETORN 

;storage fdr ascii digit 
;terminator for type routine 
?cctal digit counter 
?zero fill switch 
?number of digits to type 



;REST0RE ADDRESSING TO FIRST PRINTER 

;SWITCH TO EITHER PARALLEL OR 

;SERIAL SINGLE-CHARACTER LOADER. 

;THIS SWITCH IS SET UP BY THE PROGRAM 

;AT STARTUP PER THE CONTENTS OF SERSW WORD. 
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.SBTTL ROUTINES TO LOAD CHARACTERS TO LA180 



011044 


104420 






pload: 


CHECK 




011046 


012737 


000040 


011140 




MOV 


#40^6$ 


011C54 


0C5777 


170C34 






TST 


@LPS 


011060 


100002 








BPL 


IS 


011062 


104024 








ERROR 


24 


011064 


000423 








BR 


4S 


011C66 


0C5C37 


011136 




IS: 


CLR 


5$ 


011072 


005237 


011136 




2S: 


INC 


5S 


011075 


001005 








ONE 


3S 


011100 


005337 


011140 






UEC 


6$ 


011104 


0C1370 








BME 


IS 


011106 


104025 








ERROR 


25 


011110 


000411 








BR 


4$ 


011112 


105777 


167776 




3$: 


TSTB 


@LPS 


011116 


1C0365 








BPL 


2$ 


011120 


110077 


167772 






MQVB 


RO,PLPB 


011124 


005777 


167764 






TST 


@LPS 


011130 


100001 








BPL 


4$ 


011132 


lC4C2e 








ERROR 


26 


011134 


000402 






4S: 


BR 


NXTADR 


011136 


000000 






5$: 


*WORD 





011140 


00004C 






6S: 


-WORD 


32. 


011142 


005337 


001132 




NXTADR: 


DEC 


LPCTR 


011146 


003416 








BLE 


10$ 


011150 


062737 


000010 


001110 




ADO 


#10,LPKS 


011156 


062737 


000010 


001112 




ADD 


#10/LPKB 


011164 


062737 


000010 


001114 




ADD 


#10, LPS 


011172 


062737 


000010 


001116 




ADD 


ttlO^LPB 


011200 


000177 


177636 






JMP 


@LDPTR+2 



JROUTINE TO LOAD SINGLE CHARACTERS TO LA180 PRINTER 
;OSING THE STANDARD PARALLEL INTERFACE 
;CALL: MOV CHAR,RO ;PUT CHAR IN RO 
I LOAD 

; 

;IF PRINTER DOES NOT GO READY WITHIN 9 TO 32 SECONDS 
;(DEPENDING ON CPU AND MEMORY TYPE) THE DIAGNOSTIC HILL 
/INDICATE AN ERROR - ERROR #24 - NOT READY. 

JCHECK FOR CONTROL 
;SET DELAY LOOP COUNT 
;CHECK FOR ERROR CQNDX 
;eRINCH IF OK 

;printer error before load 

;exit 

;cleap delay count 

;inc count 

;coontinue 

;dec delay loop count 

;wait if not ready 

>brror, printer not ready 

;EXIT 

JCHECK FOR PRINTER READY 

;WAIT FOR READY 

>LOAD CHAR 

;TEST FOR ERROR CONDX AGAIN 

;BRANCH IF OK 

;PPINTER ERROR AFTER LOAD 

;D0ES ANOTHER PRINTER REQUIRE LOADING ALSO? 

;delay counter 
;delay loop counter 



/decrement line printer counter 

?BR if count is zero or less (TO EXIT) 
/ADDRESS NEXT CONTIGUOUS LINE PRINTER 



011204 000002 



10$: 



;G0 LOAD SAME CHARACTER TO NEXT PRINTER 
/USING SAME LOADER^ 
/RETURN/ SINGLE CHARACTER LOAD IS 
/COMPLETE (TO ALL PRINTERS). 
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0ini4 000000 



/////////////////////////////////////////////////////////////////////// 

/ROUTINE TO LOAD SINGLE CHARACTERS TO THE LftlBO PRINTER 

/USING THE SERIAL INTERFACE. 

/CALL: MOV CHAR,R0 /PUT CHAR IN RO 

/ LOAD 

/////////////////////////////////////////////////////////////////////// 

CHECK FOR PRINT KBD INPUT 
BRANCH IF NONE 

READ PRINTER KEYBOARD CHARACTER 
STRIP EXCESS BITS 
IS CHARACTER XOFF? 
NO/ SO BRANCH 

YES/ CHECK FOR OPERATOR INTERVENTION 
CKSCK FOR MORE PRINTER KBD INPUT 
NONE/ WAIT FOR EXPECTED XON 
READ PRINTER KEYBOARD CHARACTER 
STRIP EXCESS BITS 
IS CHARACTER XON? 
NO/ WAIT SOME MORE. 

YES/ GO DIRECTLY TO LOAD A CHARACTER 
CHECK FOR OPERATOR INTERVENTION 
IS PRINTER READY? 
NO/ START CHECKS OVER 
YES/ LOAD CHARACTER 

GO LOAD SAME CHARACTER TO NEXT PRINTER 
/USING SAME LOADER^ 

10$: .WORD /LA180 KEYBOARD CHARACTER STORAGE. 



011206 


105777 


167676 




SLQAD: 


TSTB 


§LPKS 




011212 


100C31 








BPL 


2S 




011214 


017737 


167672 


011314 




MOV 


PLPKB/IOS 




011222 


042737 


177600 


011314 




BIC 


#177600/10$ 




011230 


023727 


011314 


000023 




CMP 


10S/#23 




011236 


0C1017 








BNE 


2$ 




011240 


104420 






3S: 


CHECK 






011242 


105777 


167642 






TSTB 


@LPKS 




011246 


100374 








BPL 


3$ 




011250 


017737 


167636 


011314 




MOV 


@LPKB/10$ 




011256 


042737 


177600 


011314 




BIC 


#177600/10$ 




011264 


023727 


011314 


000021 




CMP 


10$/#21 




011272 


001362 








ENE 


3$ 




011274 


000404 








BR 


4S 




011276 


104420 






2$: 


CHECK 






0U300 


105777 


167610 






TSTB 


0LPS 




011204 


1C034C 








BPL 


SLOAD 




011306 


110077 


167604 




4$: 


MOVB 


RO/OLPB 




011312 


000713 








BR 


NXTADR 





011316 


013737 


001130 


001110 


011324 


013737 


001110 


001112 


011332 


062737 


000002 


001112 


011340 


013737 


00111? 


C01U4 


011346 


062737 


000002 


001114 


011354 


013737 


001114 


001116 


011362 


062737 


000002 


001116 


011370 


013737 


001122 


001132 


011376 


000207 







00111^0 RSTADR: MOV 



MOV 


ACTFST/LPKS 


MOV 


LPKS/LPKB 


ADD 


#2/LPKB 


MOV 


LPKB/LPS 


ADD 


#2/LPS 


MOV 


LPS/LPB 


ADD 


#2/LPB 


MOV 


NUMLP/LPCTR 


RTS 


PC 



/SET PRINTER KBD STATUS REG ADDRESS 

/SET PRINTER XBD BUFFER ADDRESS 

/SET PRINTER STATUS REG ADDRESS 

/SET PRINTER BUFFER ADDRESS 
/PUT # OF LP'S INTO A COUNTER. 
/RETURN 
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011400 
011402 
011404 
011406 



104415 
005301 
003375 
OC0002 
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/////////////////////////////////////////////////////////////////////// 

;R0UTINE to load multiple characters (NOT ASCIZ/ASCII STRINGS) 
/WILL LOAD CHAR ONCE IF COUNT = 
;PUT CHARACTER COUNT IN Rl (POSITIVE) 
;PUT ASCII CHARACTER IN RO 
;CALL: MLOAD 



SMLOAD: 


LOAD 




;L0AD CHAR 




DEC 


Rl 


;DEC COUNT 




5GT 


SMLOAD 


;FINISH LOAD 




RTI 




;return 



;RCUTINE TO LOAD CONVERTED NUMBERS AND SUPPRESS LEADING ZEROS 
;IF ALL DIGITS ARE ZERO, ROUTINF WILL PRINT A SINGLE ZERO 
;ENTER WITH ADDRESS OF ASCIZ STRING ON STACK 
>CALL: CNLOAD 



011410 






SCNLD: 








011410 


010046 






MOV 


RO,-{SP) 


;?PUSH RO ON STACK 


011412 


01014e 






MOV 


R1,-(SP) 


;?PUSH Rl ON STACK 


011414 


010246 






MOV 


R2,-(SP) 


;;POSH R2 ON STACK 


011416 


0C5002 






CLR 


R2 




011420 


016601 


000012 




MOV 


12(SP),R1 


;GET ADR 


011424 


112100 




1$: 


MOVB 


(R1)+/R0 


;GET CHAR 


011426 


001410 






BEQ 


3S 


;return when done 


011430 


005702 






TST 


R2 


;D0NE LEADING ZEROS? 


011432 


001004 






BNE 


2S 


;VES, LOAD CHAR 


011434 


020027 


000060 




^CMP 


R0,#60 


;N0, check THIS CHAR 


011440 


001771 






BEG 


IS 


;SKIP IF ZERO 


C11442 


005202 






INC 


R2 


;SET FLAG IF NON-ZERO 


011444 


104415 




2S: 


LOAD 




ILCAD CPAR 


011446 


000766 






BR 


IS 


;CONTINOE 


011450 


005702 




3S: 


TST 


R2 


;ALL CHARS ZERO? 


011452 


0C1C03 






ONE 


4S 


;NQ, EXIT 


011454 


012700 


000060 




MOV 


#60, RO 


JVES, LOAD ZERO 


011460 


104415 






LOAD 






011462 






4$: 








011462 


012602 






MOV 


(SP)*,R2 


;?PQP STACK INTO R2 


011464 


012601 






MOV 


(SP)+,R1 


;jPOP STACK INTO Rl 


011466 


012600 






MOV 


{SP)+,RO 


;;POP STACK INTO RO 


011470 


016666 


00C002 C00004 


MOV 


2CSP),4(SP) 


?ADJUST STACK 


011476 


012616 






MOV 


(SP)4,(SP) 




011500 


000002 






RTI 




;return 
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011502 






SPRINT: 






011502 


010046 






MOV 


RO,-(SP) 


011504 


010146 






MOV 


R1,-(SP) 


011506 


oneci 


G00004 




MOV 


@4(SP),R1 


011512 


112100 




is: 


MOVB 


(R1)+,R0 


011514 


001407 






BEQ 


2S 


011516 


120027 


0002C0 




CMPB 


RO/#CRLF 


011522 


001002 






BNE 


3$ 


011524 


012700 


000012 




MOV 


#LF,RO 


011530 


104415 




3S: 


LOAD 




011532 


0C0767 






BP 


IS 


011534 






2$: 






011534 


012601 






MOV 


(SP)*,R1 


011536 


012600 






MOV 


(SP)+,RO 


011540 


062716 


000002 




ADD 


#2r(SP) 


011544 


000002 






RTI 





;R0UTINE TO PRINT ASCIZ STRINGS ON LA180 PRINTER 
;STRING MUST BE TERMINATED BY NULL BYTE 
;CALL: PRINT 

; MESADR 



;;?iiSH RO ON STAcr 

;jPUSH Rl ON STACK 

;GET ADDRESS OF ASCIZ STRING 

;GET CHAR 

?branch if terminator (null) 
;ckeck if cplf code 
;branch if not 
;yes, DO LF only 

JLOAD CHAR 
JGET NEXT CHAR 

;?POP STACK INTO Rl 
>;pnp STACK INTO RO 
;ADJUST RETURN PC 

;return 
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011546 






011546 


005046 




011550 


012746 


011556 


011554 


000002 




011556 






011556 


012700 


000177 


C11562 


1C4415 




011564 


023737 


001146 011660 


011572 


001427 




C11574 


013737 


001146 011660 


011602 


104414 


015011 


011606 


013746 


001146 


011612 


004737 


013024 


011616 


1C4417 




011620 


104414 


001162 


011624 


023727 


001146 000025 


011632 


001007 




011634 


013746 


001150 


011640 


004737 


012650 


011644 


104417 




011646 


1C4414 


015C31 


011652 


104414 


001162 


011656 


000002 





C11660 OOOOCO 



.SbTTL PRINT TEST HEADER 

;ThE NUF'EER OF COLUMNS WILL ALSC BE PRINTED FOR TEST 25 ONLY 
KALL: PRTHDR 

SPRHDR: 

;;PUT NEW PS ON STACK 
JJPUT NEW PC ON STACK 
?;POP NEW PC AND PS 

>SET RUBOUT CHAR 

>CLEAR LA180 CHAR BUFFER 

?CHECK IF PRINTED THIS # LAST 

;¥ES/ PRINT BLANK LINE & EXIT 

;N0, STORE NEW » 

;L0AD TEST « WESG 

;;PUSH STSTNM ON STACK 

;CQNVERT # 

JLOAD NUMBER 

IPRINT LINE 

;IS THIS TEST 25? 

INC, SKIP COLUMN HESG 

;PUT ft COLUMNS ON STACK 

;CONVERT M 

;LCAD NUMBER 

?L0AD CLOUMN MESG 

JPLANK LINE 

;return 

;SAVE TEST NUMBER 





CLR 


-(SP) 




MOV 


#64$, -(SP) 




RTI 




64s: 








MCV 


#177, RO 




LOAD 






CNP 


STSTNM, SVTST 




BEQ 


3S 




MOV 


STSTNM, SVTST 




PRINT 


,TSTNO 




MOV 


STSTNM, -(SP) 




JSR 


PC,SSB20 




CNLOAD 






PRINT 


,SLF 




CMP 


STSTNM, #25 




BNE 


3S 




MOV 


WIDTH,-(SP) 




JSR 


PC,$SB2D 




CNLOAD 






PRINT 


,CULHN 


3S: 


PRINT 


,SLF 


4$: 


RTI 
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-SBTTL TTY INPUT ROUTINE 



. . ********* 
.ENAEL LSB 



k********************* 



*******! 



********************* 



.DSABL LSB 



***************************************************************** 
;*TH1S ROUTINE WILL INPf^T A SINGLE CHARACTER FROM THE TTY 

;*call: 

;* rdchr ?jinput a single character from the tty 

;* RETURN HERE ?;CHARACTER IS ON THE STACK 

;* ;?WITH PARITY BIT STRIPPED OFF 



011662 


011646 






SRDCHR: 


MOV 


(SP),-(SP) 


011664 


016666 


000004 


000002 




MCV 


4(SP),2(SP) 


C1H72 


1C5777 


1672C2 




IS: 


TSTE 


3STKS 


011676 


100375 








BPL 


IS 


011700 


117766 


167176 


000004 




MOVB 


?STKB,4(SP) 


011706 


042766 


177600 


000004 




BIC 


rC<177>,4(SP) 


011714 


C26627 


CGCCC4 


000023 




CMP 


4(SP),#23 


011722 


001013 








BNE 


3S 


011724 


105777 


167150 




2S: 


TSTB 


@STKS 


011730 


1C0375 








BPL 


25 


011732 


117746 


167144 






KOVP 


(aSTKB,-(SP) 


011736 


042716 


177600 






BIC 


rCl77,(SP) 


011742 


022627 


000021 






CMP 


(SP)+,#21 


011746 


001366 








BNE 


2S 


011750 


000750 








BR 


IS 


011752 


026627 


000004 


000140 


as: 


CMP 


4(SP),#140 


011760 


002407 








BLT 


4S 


011762 


026627 


000004 


000175 




CMP 


4(SP),#175 


011770 


003003 








BGT 


4S 


011772 


042766 


000040 


000004 




BIC 


#40,4(SP) 


OIKOO 


0CC0C2 






4$: 


RTI 












,,****« 












;*THIS 


ROUTINE 


WILL INPUT A STR 










;*call: 














;* 


RDLIN 












;* 


RETURN 


HERE 


012002 


010346 






SRDLIN: 


: MOV 


R3,-(SP) 


012004 


005046 








CLR 


-(SP) 


012C06 


012703 


012236 




IS: 


MOV 


#STTYIN,R3 


012012 


022703 


012242 




2S: 


CMP 


#$TTYIN+4,R3 


012016 


101456 








BLOS 


4S 


012020 


1C44CC 








RDCHP 




012022 


112613 








MOVB 


(SP)+,(R3) 


012024 


122713 


000177 




lOS: 


CMPB 


#177, (R3) 


012030 


001022 








BNE 


■5$ 


01/C32 


0C5716 








TST 


(SP) 


012034 


001007 








BNE 


6S 


012036 


112737 


00013^ 


012234 




MOVB 


r\,9s 



;;PUSH DOWN the pc 

;}SAVE THE PS 

;jWAIT FOR 

;?A CHARACTER 

;?RFAO THE TTY 

nCET RID OF JUNK IF ANY 

?;IS IT A CONTROL-S? 

??BRANCH IF NO 

;;KAIT FOR A CHARACTER 

;?LOOP UNTIL ITS THERE 

;?GET CHARACTER 

;;make it 7-aiT ascii 
;ns it a control-g? 

;?IF NOT DISCARD IT 

;;YES, RESUME 

;;IS IT UPPER CASE? 

;;BRANCH IF YES 

;nS IT A SPECIAL CHAR? 

;JBRANCH IF YES 

;?MAKE IT UPPER CASE 

;;G0 BACK TO USER 
********************************** 
ING FROM THE TTY 

nlNPUT A STRING FROM THE TTY 

;?AODRESS OF FIRST CHARACTER WILL BE ON THE STACK 

>;TERMINATOR WILL BE A BYTE OF ALL O'S 

?JSAVE P3 

;;CLEAR THE RUBOUT KEY 

;;GET ADDRESS 

JJBUFFER FULL? 

;;BR IF YES 

;jGQ READ ONE CHARACTER FROM THE TTY 

>?GST CHARACTER 

;;IS IT A RUBOUT 

;?BR IF NO 

?;iS THIS THE FIRST RUBOUT? 

J 5 BR IF NO 

;;type a back slash 
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012C44 


1C4401 


012234 






TYPE 


,9$ 




012050 


012716 


177777 






my 


#-l/(SP) 


;?SST THE RUBOUT KEY 


012054 


005303 






6S: 


DEC 


R3 


;jBACKUP BY ONE 


012056 


020327 


012235 






CMP 


R3r#$TTYIN 


;;STACK EMPTY? 


012C62 


1C3434 








BLO 


4S 


;jER IF YES 


012064 


111337 


012234 






MOVP 


(R3),9S 


;;SETUP TO TYPEOUT THE DELETED CHAR 


012070 


104401 


012234 






TYPE 


/9$ 


;;Ga type 


0i;C74 


CC0746 








BR 


2S 


;?G0 READ ANOTHER CHAR. 


012076 


005716 






bS: 


TST 


(SP) 


;;rubout key set? 


012100 


001406 








BBQ 


7S 


;;br if no 


012102 


112737 


000134 


012234 




MOVB 


#'V/9$ 


;;type a back slash 


CIHIO 


1C4401 


012234 






TYPE 


/9$ 




012114 


005016 








CLR 


(SP) 


;?CLEAR the RUBOUT KEY 


012116 


122713 


000025 




7S: 


CMPB 


#25^(R3) 


;;IS CHARACTER A CTRL U? 


012122 


001003 








BNE 


8$ 


;?BR IF NC 


012124 


104401 


012242 






TYPE 


, SCNTLU 


;;TYPE A CONTROL "U" 


012130 


000726 








BR 


IS 


;;G0 START OVER 


012132 


122713 


000022 




8$: 


CMPB 


#22, (R3) 


}}IS CHARACTER A ""R"? 


C12136 


OClOll 








BNE 


3$ 


;;EPANCH IF NO 


012140 


105013 








CLRB 


(R3) 


;;CLEAR THE CHARACTER 


012142 


104401 


001161 






TYPE 


^SCRLF 


;;type a "CR" & "lf" 


012146 


104401 


012236 






TYPE 


, STTYIN 


;?TYPE THE INPUT STRING 


012152 


000717 








BR 


2S 


;JG0 PICKUP ANOTHER CHACTER 


012154 


104401 


001160 




4S: 


TYPE 


,$QUES 


;;type a -?' 


012160 


000712 








BR 


IS 


j;CLERR THE BUFFER AND LOOP 


012162 


111337 


012234 




3$: 


MGVB 


(R3),9S 


;;echo the character 


012166 


104401 


012234 






TYPE 


/9$ 




012172 


122723 


000015 






CMPB 


#15,(R3)t 


;;CHECK FOR return 


012176 


001305 








BNE 


2$ 


;;loop if not return 


01220C 


1C50«3 


177777 






CLRB 


-1(R2) 


;?CLEAR return (THE 15) 


012204 


104401 


001162 






TYPE 


,$Lf 


?7TYPE a LINE FEED 


012210 


005726 








TST 


(SP) + 


;;clean rubout key from the stack 


012212 


0126C3 








MOV 


(SP)+,R3 


j;restope R3 


012214 


011646 








HQV 


(SP),-(SP) 


??ADJUST THE STACK ftND PUT ADDRESS 1 


012216 


016666 


000004 


000002 




MOV 


4(SP),2(SP) 


;; First ascii chakacter on it 


012224 


01276C 


012236 


C0C004 




.MOV 


#STTYIN,4(SP) 




012232 


000002 








RTl 




;?RETURN 


012234 


000 






9$: 


.BYTE 





;;storage for ascii char, to type 


012235 


000 








*3YTE 





;?TERMINATOR 


012236 


OC0004 






STTYIN: 


.BLKB 


4 


;?RESERVE 4 BYTES FOR TTY INPUT 


012242 


052536 


005015 


000 


SCNTLU: 


.ASCIZ 


/-U/<15><12> 


;?C0NTR0L "U" 


012247 


136 


006507 


000012 


SCNTLG: 


.ASCIZ 


/~G/<15><12> 


;;control "g" 


012254 


005015 


053523 


C20122 


$MSHR: 


.ASCIZ 


<15><12>/SWR = 


/ 


012262 


020075 


000 












012265 


040 


047040 


053505 


SMNEa: 


-ASCIZ 


/ NEW = / 




012272 


035440 


000040 
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.SBTTL READ A DECIMAL NUMBER FFCH THE TTY 



************ 



t******** 



THIS PQUTINE KILL READ A DECIFAL (ASCII) NUMBER FROM THE TTY AND 
CHANGE IT TO BINARY. IF TOG MANY CHARACTERS OR ANY ILLEGAL CHARACTERS 
ARE READ A ••?•• FOLLOWED BY A CARRIAGE RETURN-LINE FEED WILL BE TYPED. 
THE COMPLETE NUMBER MUST BE RETYPED. THE INPUT IS TERMINATED BY THE 
USER TYPING A CARRIAGE RETURK, THE RANGE PF THE INPUT NUMBER IS 
POSITIVE 32767 TO NEGATIVE 32768. 
CALL: 

RDDEC ;?PEAD A DECIMAL NUMBER 

RETURN MERE ;?NUMPER IS ON TOP OF THE STACK 



C12276 


011646 




012300 


016666 


000004 


012306 


010046 




012310 


010146 




C12312 


010246 




012314 


104407 




012316 


012600 




012320 


010C37 


012444 


012324 


005046 




012326 


005002 




012330 


122710 


CCCC55 


012334 


001001 




012336 


112002 




012340 


112001 




Ci;342 


0C1424 




012344 


12270] 


000060 


012350 


003032 




012352 


122701 


000071 


012356 


0C2427 




012360 


032716 


170000 


012364 


001024 




012366 


006316 




012370 


011646 




012372 


006316 




012374 


006316 




012376 


06261C 




012400 


102416 




012402 


162701 


000060 


012406 


oeoiif 




012410 


102412 




012412 


000752 




012414 


005702 




C12416 


0C14C1 




012420 


005416 




012422 


012666 


000012 


012426 


012602 




012430 


012601 




012432 


012600 




012434 


000002 




012436 


0057 26 




012440 


105010 





as: 



MOV 

MOV 

MOV 

MOV 

MOV 

RDLIN 

KDV 

MDV 

CLR 

CLR 

CMPB 

ENE 

MOVP 

MCVP 

BEQ 

CMPP 

BGT 

CMPB 

BLT 

BIT 

BNE 

ASL 

MOV 

ASL 

ASL 

ADD 

BVS 

SUB 

ADD 

BVS 

BR 

TST 

BEQ 

NEG 

MOV 

MOV 

MOV 

MOV 

RTI 

TST 
CLRB 



(SP)/-(SP) 

4(SP),2(SP) 

RO,-(SP) 

R1/-(SP) 

R2r-(SP) 

(SP)*,RO 

R0,6S 

-(SP) 

R2 

«'-/(R0) 

2$ 

(R0)*/P2 

(RO)+/Rl 

3$ 

#'0,R1 

5S 

#'9,«1 

5$ 

#''C7777,(SP) 

5S 

(SP) 

(SP),-(SP) 

(SP) 

(SP) 

(SP)+,(SP) 

5$ 

#'0,R1 

R1/(SP) 

5$ 

2$ 

R2 

4$ 

(SP) 

(SP)+,12(SP) 

(SP)4,R2 

(SP)4,R1 

(SP)+/R0 



(SP)* 
(RO) 



;jFnOVIDE SPACE FOR 

;;the INPUT number 
;;PUSH RO ON stack 
;>pusH Ri CN stack 
;;PUSH P2 ON stack 
;;read an ASCIZ line 
;?addhess of 1st char. 
??save incase of bad input 
;?clear data word 
;jsiGN SET positive 

;?3EE IF A minus SIGN WAS TYPED 
>5eR IF NC MINUS SIGN 

;;SAVF FOP later use 
;?PiCKUp THIS character 

;;GET OUT IF ZE'JQ 

JJMAKE SURE THIS CHARACTER 

;;1S A DIGIT BETWEEN & 9 



;?DaN'T LET NUMBER GET TO BIG 
;;BR IF NUMBER WCULD OVERFLGid 
/ ?*2 
;;SAVE FOR LATER 

;/*4 

;>*8. 

;?*io. 

;;CVERFLOW ISN'T ALLOWED 

;;sthip away the ascii junk 
;;add in this digit 

>?CVERFLOW ISN'T ALLOWED 

;?LOOP 

?;CHECK IF NUMBER IS NEG 

;?eR IF NO 

;?YES— NEGATE THE NUMPER 

;jSAVE THE RESULT 

;7PQP STACK INTO R2 

/JPOP STACK INTO Rl 

;?PaP STACK INTO RO 

;?RETURN 

??CLEAN PARTIAL NUMBER FROM STACK 
;5SET A TERMINATOR 
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012442 104401 

012444 000000 

012446 104401 001160 

012452 000720 



6SS 



TYPE 

*WCPD 

TYPE ,$QUES 

BR IS 



;>TYPE THE INPUT OP TO PAD CHARi 
;;POINTER GOES HERE 
?J"?" "CR" S"LF" 
;nRY AGAIN 
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.SBTTL DOUBLE LENGTH BINARY TC DECIMAL ASCII CONVERT ROUTINE 

1*THIS ROUTINE WILL CONVERT A 32-BIT BINARY NUMBER TO AN UNSIGNED 
;*DECIMAL (ASCII) NUMBER. THE SIGN OF THE BINARY NUMBER MUST BE 
;*P0SITIVE. 
;*CALL 

;* MOV #PNTfi/-(SP) ;jPOINTEH TO LOW WORD OF BINARY NUMBER 
;* JSR PC/0#$DB2D 

;* RETURN ;?THE FIRST ADDRESS OF ASCIZ 

;;IS ON THE STACK 



012454 


104411 




012456 


016602 


000002 


012462 


0127CC 


012634 


012466 


010066 


000002 


012472 


012201 




012474 


012202 




012476 


012737 


000012 


012504 


012704 


012564 


012510 


0127 0'^ 


012566 


012514 


005003 




012516 


161401 




012520 


005602 




012522 


261502 




012524 


00240? 




012526 


005203 




012530 


000772 




012532 


062401 




012534 


005507 




012536 


062402 




012540 


022525 




012542 


C527C3 


0C006O 


012546 


110320 




012550 


005327 




012552 


000000 




012554 


001357 




012556 


105020 




012560 


104412 




012562 


000207 




012564 


14500C 




012566 


03563? 




012570 


160400 




012572 


002765 




012574 


1132Cr 




012576 


000230 




012600 


041100 




012602 


000017 




012604 


10324C 




012606 


000001 




012610 


02342C 




012612 


000000 




012614 


0C175C 




012616 


000000 




012620 


000144 





50B2C: 



is: 
2$: 



STNPfeP: 



SAVREG 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

CLP 

SUB 

SBC 

SUE 

PLT 

INC 

BR 

ADD 

ADC 

ADO 

CMP 

BIS 

MOVE 

DEC 

.WORD 

BNE 

CLRP 

RESREG 

RTS 

145C00 

35632 

160400 

2765 

113200 

230 

041100 

17 

103240 

1 

23420 



175C 



144 



2(SP),R2 

#SDECVL/RO 

R0/2(SP) 

(R2)*/R1 

(R2)*^R2 

#10.,4S 

#$TNPWR/R4 

#$TNPWR+2,R5 

R3 

(R4),R1 

R2 

(R5),R2 

3S 

R3 

2$ 

(P4)*,R1 

R2 

(R4)*/R2 

(R5)4,(H5)+ 

#'0/R3 

R3,(R0)+ 

(PC) + 



IS 

(RO)* 

PC 



;;save registers 

;;pickup the data pointer 

;;get address of "sdecvl" string 

;?put address of asciz string on stack 

;?pickup the binary number 

>>set up to do 10 conversions 
;;address of ten power 

;?cleap partial 
;;suBTRACT ten power 



?;bp if ten POWER to large 

;;ADD 1 TO PARTIAL 

;?LCCP 

;>RESTuRE SUBTRACTED VALUE 



?JMCVE TO NEXT TEN POWER 
;jCHANGE PARTIAL TO ASCII 
;?SAVE IT 
;?DONE? 

??BR IF NO 

>?terminatcp 
;;restore registers 

>?HETURN 
;;1.0E09 

;n.0E08 

;?1.CE07 
;?1.0E06 
;?1.CE05 
;?1.0E04 

;;i.CE03 
;;1.0E02 



M^lNEtC-n-DZLAE-e 
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012622 


000000 


C12624 


OCOCl/ 


012626 


000000 


012630 


000001 


012632 


000000 


012634 


0C0014 
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12 

1 

SUECVL: *BLKB 



;n.CE01 
?n.OEOO 
12. ;;RESERVE STORAGE FOR ASCIZ STRING 

.SBTTL SINGLE LENGTH BINARY TO DECIMAL ASCIZ ROUTINE 

;*THIS ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

;*UNSIGNED DECIMAL ASCIZ NUMBER- 

;*CALL 

}* MOV NUMBER,-(SP) ;yPUT BINARY NUMBER ON THE STACK 

;* JSR PC,0#$SB2D ??CALL 

;* RETURN ;?ADORESS OF THE 1ST ASCIZ CHAR. IS ON THE STACK 



012650 016637 
012656 012746 



012662 
C12666 
012672 
012676 
012700 



004737 
062716 
012666 
000207 
000000 



000002 
012700 
012454 
O0COC5 
000002 

000000 



012700 $SB2D: 



MOV 


2(SP),1S 


MOV 


«1$/-(SP) 


JSR 


PC,§#SDB2D 


ADD 


#5,(SP) 


MOV 


(SP)*,2(SP) 


RTS 


PC 


• WORD 


0,0 



;?SAVE BINARY NUMBER 

;;SET POINTER 

;;CALL DOUBLE LENGTH CONVERT 

;;ONLY ALLOU FIVE CHARACTERS 

;;PICKUP POINTER 

;?RETORN 
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.SBTTL DOUBLE LENGTH BINARY TO OCTAL ASCII CONVERT ROUTINE 

;*THIS ROUTINE WILL CONVERT A 32-BIT UNSIGNED BINARY KUMBER TO AN 

;*UNSIGNEC OCTAL ASCIZ NUMBER. 

;*CALL 

;* MOV #PNTR/-(SP) ;;POINTER TO LOW WORD OF BINARY NUMBER 

}* JSP PC/(a#SDB20 ;jCALL THE ROHTINE 

;* RETURN ;;THE address CF THE FIRST ASCIZ CHAR. IS CN THE STACK 



012704 


104411 




012706 


016601 


000002 


012712 


012705 


013023 


012716 


012704 


000014 


012722 


012703 


177770 


012726 


012100 




012730 


012101 




012732 


005002 




012734 


110245 




012736 


0100C2 




012740 


005304 




012742 


C03007 




012744 


001405 




012746 


GC52Cf 




012750 


010556 


000002 


012754 


10441: 




012756 


000207 




01276C 


0C62C? 




01276? 


006001 




012764 


006000 




C12766 


0C6CC? 




012770 


006000 




012772 


006001 




012774 


00600C 




C12776 


04030'' 




013000 


062702 


000060 


013004 


00075? 




013006 


ooooie 





SDB20: 


SAVREG 






MOV 


2(SP)/R1 




MCV 


#$0CTVL+13 




MOV 


«12./R4 




MOV 


rC7,R3 




MOV 


(R1)*#R0 




MOV 


(R1)+,R1 




CLR 


R2 


IS: 


MOVB 


R2,-(R5) 




MOV 


R0/R2 




DEC 


R4 




BGT 


3$ 




BSQ 


2$ 




INC 


R5 




MOV 


R5,2(SP) 




RESRtG 






RTS 


PC 


i$: 


ASR 


R3 


3S: 


ROP 


Rl 




ROP 


RO 




ROR 


Rl 




ROR 


RO 




ROR 


Rl 




ROti 


HO 




BIC 


R3,P5 




ADD 


«'0,R2 




BR 


IS 


SOCTVL: 


.BLKB 


14. 



;?SAVE ALL REGISTERS 

;;PICKUP THE POINTER TO LOii WORD 

,R5 ;;pniNTER to data table 

;?D0 ELEVEN CHARACTERS 
;?MASK 

;;LCWFR word 
;;high wopd 
;;termina?or 

;?PUT character IN DATA TABLE 
?;GET THIS DIGIT 
;;C0UNT THIS CHARACTER 

;;BR IF not the last digit 

;?BR IF IT is the last DIGIT 

;;all DIGITS done-adjust pointer for first 

;JASCIZ CHAR- & put IT DN THE STACK 

;;rfstore all registers 
;;return tc user 

;?P0SITIQN the MASK FOR THE LAST DIGIT 
??FOSITION THE PINARY NUMPEP FOR 
?? THE NEXT OCTAL DIGIT 



;;MASK OUT ALL JUNK 
;?MAKE THIS CHAR. ASCII 
;?G0 PUT IT IN THE DATA TABLE 
;;RESEHVE DATA TABLE 
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-SBTTL SINGLE LENGTH BINARY TC OCTAL ASCIZ ROUTINE 



;*THI3 ROUTINE WILL CONVERT A 16-BIT UNSIGNED BINARY NUMBER TO AN 

;*UNSIGNED OCTAL ASCIZ NUMBER. 

;*CALL 

;* MOV NUMBEP/-(SP) JjPUT BINARY NUMBER ON THE STACK 

;* JSR PC,@«SSB20 ?JCALL 

;* RETURN ;;ADDHESS OF 1ST ASCIZ CHAR. IS ON THE STACK 



013C24 


016637 


000002 


013032 


012746 


013054 


013036 


004737 


012704 


013042 


062716 


OOflCOS 


013046 


012666 


000002 


013052 


000207 




013054 


000000 


000000 



013054 SSB2C: 



HOV 


2(SP),1$ 


MOV 


tfl$,-(SP) 


JSR 


PC,@«SUB20 


ADO 


#5^(SP) 


MCV 


(SP)*,2(SP) 


RTS 


PC 



0,0 



;;SAVE THE BINARY NUMBER 

;;SBT POINTER 

;jCALL DOUBLE LENGTH CONVERT ROUTINE 

?;CNLY ALLOW SIX CHARACTERS 

J7PICKUP POINTER 

;jRETURN 
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. SBTTL TRAP DECODER 



***************************************************************** 
;*THIS ROUTINE WILL PICKUP THE LOWER BYTE OF THE "TRAP" INSTRUCTION 
;*AND USE IT TO INDEX THROUGH THE TRAP TABLE FCR THE STARTING ADDRESS 
;*GF THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
;*GQ TO THAT ROUTINE. 



013060 


016646 


000002 


C13064 


042716 


000020 


013070 


012746 


013076 


013074 


000002 




C13C76 


C10C46 




013100 


016600 


000002 


013104 


005740 




013106 


111000 




C13110 


022700 


000044 


013114 


00300? 




013116 


000000 




013120 


CC0776 




01312? 


006300 




013124 


016000 


013144 


013130 


000200 





$TRAP: 



MCV 


2(SP)/-(SP) 


BIC 


i^20/(SP) 


MOV 


#1$,-(SP) 


RTI 




MOV 


RC/-(SP) 


MCV 


2(SP),R0 


TST 


-(RO) 


MCVB 


(RO)/RO 


CMP 


#STERM,RO 


EGT 


.♦6 


HALT 




BP 


.-2 


ASL 


RO 


MOV 


$TRPAD(RO)/RO 


RTS 


RO 



?;ASSUME THE STATUS OF 
; THE CALLER—DO NOT ALLOW 
; T-BIT TRAPS 
?SET THE NEW STATUS 
;SAVE RO 
?GET TRAP ADDRESS 

;backup by 2 

;GFT RIGHT BYTE OF TRAP 

;CFECK FOR OUT OF POUNDS 

?BR IF OK 

?OUT OF BOUNDS 

?HANGUP 

^POSITION FOR INDEXING 

; INDEX TO TABLE 

?G0 TO ROUTINE 



;;this is use to handle the "getpri" macro 



013132 


011646 






STRAP?: 


MCV 


(SP),-(SP) 


013134 


C16t6f 


CC0004 


C00CC2 




MGV 


4(SP)/2(SP) 


01314-^ 


000002 








RTI 





;?MCVE THE PC DOWN 
;?MGVE THE PSW DOWN 
?JREST0RE THE PSW 



013144 


01313? 


013146 


01024? 


C13150 


C1063? 


01315? 


010606 


013154 


010646 


013156 


C1036? 


013160 


01166? 


013162 


012002 


013164 


012/76 


013166 


010146 


013170 


010204 


C13172 


011546 


013174 


011502 


013176 


011034 


013200 


0114CC 


01320? 


011410 



SBTTL TRAP TABLE 

*THI3 TABLE CONTAINS THE STARTING ADDRESSES CF THE ROUTINES CALLED 
*BY THE "TRAP" INSTRUCTION. 



STRPAD: .WORD 
STYPE 
STYPOC 
STYPOS 
$TYPON 
STYPDS 



$TRAP2 

?;call=type 

;;call=typoc 

;kall=typos 

;;CALL=TYP0N 
;jCALL=TYPDS 



SRDCHR 

$RDLIN 

SPDDEC 

$SAVREG 

SRESREG 

SPRHDR 

$PRINT 

SLOAD 

SHLOAD 

SCNLD 



;;CALL: 
;jCALL: 

;;CALL- 

??CALL: 

;;CALL: 
;;CALL: 

??CALL: 
;?CALL: 

;;CALL: 

;?CALL: 



ROCHR 

RDLIN 

RDDEC 

SAVREG 

RESREG 

PRTHDR 

PRINT 

LOAD 

MLOAD 

CNLOAD 



TRAP+1(104401) 
TRAP+2(1044C2) 
TRAP+3(104403) 
TRAP+4(104404) 
TRAP45(104405) 



TRAP+6(1 
TRAP+7(1 
TPAP+10( 
TRAP+11( 
TRAP+12( 
TRAP+13( 
TRAP-H4( 
TRAP+15( 
TRAP*16( 
TRAP+17C 



04406) 

04407) 

104410) 

104411) 

104412) 

104413) 

104414) 

104415) 

104416) 

104417) 



TTY TYPFUUT ROUTINE 

TYPE OCTAL NUMBER (WITH LEADING ZEROS) 
TYPE OCTAL NUMBER (NO LEADING ZERCS) 
TYPE OCTAL NUMBER (AS PER LAST CALL) 
TYPE DECIMAL NUMBER (WITH SIGN) 



TTY TYPBIN CHARACTER ROUTINE 

TTY TYPEIN STRING ROUTINE 

READ A DECIMAL NUMBER FROM TTY 

SAVE R0-R5 ROUTINE 

RESTORE a0-R5 ROUTINE 

PRINT TEST HEADER 

PRINT ROUTINE 

LOAU CHAR ROUTINE 

MULTIPLE CHAR LOAD 

LOAD CONVERTED NUMBER 
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013204 007052 

013^06 0C7112 

000044 



SCHECK 
SHOLD 
$TERH=.-$TRPAD 



>?CALL=CHECK 
?JCALL=H0LD 



TRAP+20C104420) CHECK FOR KYBD OR SW KEG CONTROL 
TRAP*21(104421) MAIT FOP OPERATOR ACTION 
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.SbTTL POWER DOWN AND UP ROUTINES 



. ************ 



************************* 



**************** 



013210 


012737 


013350 


000024 


C12216 


012737 


0C034C 


000026 


013224 


010046 






013226 


010146 






C13230 


C1024C 






013232 


010346 






013234 


010446 






012236 


010546 






013240 


017746 


165676 




013244 


010637 


013354 




013250 


012737 


013262 


000024 


C13256 


coococ 






013260 


000776 






013262 


012737 


013350 


000024 


013270 


013706 


013354 




013274 


005037 


013354 




C12300 


0r5237 


013354 




013304 


001375 






013306 


012677 


165630 




013312 


012605 






C13314 


012604 






013316 


012603 






013320 


012602 






C12322 


0!2eCl 






013324 


012600 






013326 


012737 


013210 


000024 


C13334 


0J2737 


000340 


C00026 


013342 


104401 






013344 


015215 






013346 


000002 






C13350 


CCOCCC 






013352 


000776 






013354 


000000 







;POWER CQWN ROUTINE 



SPjiRDN: 



MOV 
MOV 
HOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
HALT 

t****** 
;P£iWER UP ROUTINE 



#$ILL0P,@#PWRVEC ;?SET FOR FAST UP 
#340,(a#pWRVEC+2 ;>PRI0:7 



R0,-(SP) 

R1,-(SP) 

R2,-(SP) 

R3/-(SP) 

R4,-(SP) 

R5,-(SP) 

@SWR^-(SP) 

SP,SSAVR6 

#SPWRUP,(a#PWRVEC 



;;PUSH RO ON stack 

;?PUSH Rl CN STACK 

;;PUSH R2 ON STACK 

;;PUSH R3 ON STACK 

;;PUSH R4 ON STACK 

;?PUSH R5 ON STACK 

JJPUSH @SWR ON STACK 

SAVE SP 

;SET UP VECTOR 

;?HANG UP 



****************** 



r******* 



r********* 



SPWRUP: 



$SAVR6: 



MOV 
MOV 
CLR 
INC 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

HOV 

MOV 

TYPE 

-WORD 

RTI 

HALT 

EP 





#$ILLUP,@#PWRVEC >?SET FOR FAST DOWN 



5SAVR6/SP 

SSAVR6 

$SAVR6 

IS 

(SP)*,@SWR 

(SP)*,R5 

(SP)+,R4 

(SP)+,R3 

(SP)+,R2 

(SP)4^R1 

(SP)+,RO 

i|$PWRDN/@#PWRVEC 



GET SP 
;?WAIT LOOP FOR THE TTY 
;?WAIT FOP THE INC 
;?0F WORD 

;;POP STACK INTO §SWR 
;;POP STACK INTO R5 
;?POP STACK INTO R4 
??POP STACK INTO R3 
;?POP STACK INTO R2 
;?POP STACK INTO PI 
;?POP STACK INTO RO 

;SET UP THE POWER DCSN VECTOR 



#340/§#PWRVEC+2 ;;PRI0:7 

;?REP0RT THE POWER FAILURE 
PWRMSG ;;PDWER FAIL MESSAGE POINTER 

??THE POWER UP SEQUENCE WAS STARTED 
.-2 ;? BEFORE THE POWER DOWN WAS COMPLETE 

;;pnT the sp here 
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01335C 


0C2254 


013360 


003072 


013362 


003262 


013364 


000000 


C13?66 


OCOOOC 


013370 


000000 


013372 


000000 


013374 


000000 


013376 


ocococ 


013400 


000000 


013402 


000000 


013404 


000000 


013406 


oooooc 


013410 


000000 


013412 


oooooc 


013414 


000000 


013416 


0C3ei4 


013420 


00366? 


013422 


003772 


013424 


004060 


C13426 


004114 


013430 


004406 


013432 


004770 


013434 


005062 


C13436 


0C52C0 


013440 


005226 


013442 


177777 


013444 


000000 


C13446 


OCOCOC 


013450 


000000 


013452 


000000 


013454 


000000 


013456 


cooccc 


013460 


000000 


013462 


000000 


013464 


aooooo 


C13466 


ocococ 


013470 


000000 


013472 


000000 


013474 


000000 


C13476 


0C534C 


013500 


000000 


013502 


000000 


013504 


000000 


013506 


OCOCCP 



/////////////////////////////////////////////////////////////////////// 

.SBTTL TEST ADDRESS TABLE 

;ThE PRINTING TEST SEQUENCE STAFTS WITH TEST20 

;TD REMOVE A TEST FPOW THE PROGRAM - 

^DEPOSIT ZERO FOR THE TEST ADDRF3S IN THIS TABLE 

;A MINUS ONE (-1) IN THE TABLE INDICATES THE END OF THE PRINTING SEQUENCE 



TESTO 




TESTl 




TEST2 







;test3 





;test4 





?TEST5 





?TEST6 





;test7 





?TEST1C 





?TEST11 





;TEST12 





;test13 


c 


;testi4 





>TEST15 





;test16 





;testi7 


TEST2C 




TEST21 




TEST22 




TEST23 




TEST24 




TEST25 




TEST26 




TEST27 




TEST30 




TEST31 




-1 


;TEST32 





;TEST33 





;TEST34 





JTEST35 





;test36 





?TEST37 





;TE3T4C 





;test41 





;TEST42 





>TEST43 





?TEST44 





JTEST45 





;TEST46 





;TEST47 


TEST50 







;test51 





;TEST52 





;TEST53 


c 


;TEST54 
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013510 


000000 


013512 


000000 


013514 


000000 


C13516 


CC554r 


013520 


005654 


013522 


005766 


013524 


006050 


013526 


C06174 


013530 


000000 


013532 


OOOOOC 


013534 


000000 


013536 


OCOCCf' 


013540 


000000 


013542 


OOOOOC 


013544 


000000 


013546 


ococcr 


013550 


000000 


013552 


006514 


013554 


00653^ 






JTEST55 





;TEST56 





;TEST57 


TEST60 




TEST61 




TEST62 




TEST63 




TESTe4 







;TEST65 





?TEST66 





;TEST67 


C 


;test7C 





;test71 





;TEST72 





;TEST73 





;TEST74 





;TEST75 


TEST7P 




TEST77 





013556 


01363: 


013560 


C13661 


013562 


013706 


013564 


013744 


013566 


014000 


C13570 


014C5? 


013572 


014070 


013574 


014117 


013576 


014144 


013600 


C14170 


013602 


014232 


013604 


014266 


013606 


014324 


013610 


01436C 


013612 


014414 


013614 


014451 


013616 


014503 


013620 


014537 


013622 


014573 


013624 


014632 


013626 


014671 


013630 


014713 



.SBTTL ERROR MESSAGE ADDRESS TABLE 

',1 11 iiiiiimiiiiiiiiimiini imiiiii! iiiiiiiiiiiiiniiiiimiimiii 



EM at: 



EPRl 

ERR5 

EPR3 

ERR4 

ERRS 

ERR6 

ERR7 

ERRIO 

ERRll 

EPR12 

ERR13 

ERR14 

ERR15 

ERR16 

ERR17 

ERR20 

ERR21 

ERR22 

ERR23 

ERR24 

ERR25 

ERP2e 
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013632 


051105 


047522 


020122 


EKHl: 


013640 


046103 


040505 


C26122 




013646 


050040 


053517 


051105 




013654 


047440 


043106 


000 




013661 


122 


040505 


054504 


ERR2: 


013666 


C5144C 


052105 


C20054 




013674 


047520 


042527 


020122 




013702 


043117 


000106 






013706 


051105 


047522 


020122 


EHK3: 


013714 


046103 


0405C5 


026122 




013722 


050040 


044522 


052116 




013730 


051105 


047440 


043106 




013736 


046040 


047111 


000105 




033744 


042522 


042101 


C20131 


ERR4: 


013752 


042523 


026124 


050040 




013760 


044522 


052116 


051105 




013766 


047440 


043106 


046040 




C13774 


047111 


CQ0105 






014000 


051105 


047522 


020122 


ERR5: 


014006 


042523 


026124 


050040 




014014 


044522 


052116 


051105 




014022 


C4744C 


020116 


044514 




014030 


042516 


000 






014033 


122 


040505 


054504 


ERR6: 


014040 


041440 


042514 


051101 




014C46 


020054 


051120 


C47111 




014054 


042524 


020122 


047117 




014062 


046040 


047111 


000105 




014070 


051105 


047522 


020122 


ERR7: 


014C76 


0461C? 


C40505 


C26122 




014104 


050040 


050101 


051105 




014112 


047440 


052125 


000 




014117 


122 


040505 


054504 


ERHIO 


014124 


051440 


052105 


020054 




014132 


040520 


042520 


020122 




014140 


052517 


000124 






014144 


051105 


047522 


020122 


EKRll 


C14152 


044504 


020104 


C47516 




014160 


020124 


046103 


040505 




014166 


000122 








014170 


042522 


042101 


020131 


ERR12 


C14176 


047516 


020124 


042523 




014204 


020124 


043101 


042524 




014212 


020122 


051105 


047522 




014220 


020122 


046103 


040505 




014226 


042522 


000104 






014232 


051105 


047522 


020122 


ERR13: 


014240 


04252? 


020124 


043101 




014246 


042524 


020122 


042522 




Q14254 


04252? 


020124 


047111 





-SBTtL ERROR MESSAGES 
/////////////////////////////////////////////////////////////////////// 

.ASCIZ /ERROR CLEAR/ POWER OFF/ 



*ASCIZ /READY SET, POKER OFF/ 



.ASCIZ /ERROR CLEAR/ PRINTER OFF LINF/ 



rfASCIZ /READY SET/ PRINTER OFF LINE/ 



-ASCIZ /ERROR SET/ PRIKTER ON LINE/ 



-ASCIZ /READY CLEAR/ PRINTER ON LINE/ 



^ASCIZ /ERROR CLEAR, PAPER CUT/ 



iftSCIZ /READY SET/ PAPER OUT/ 



4ASCIZ /ERROR DID NOT CLEAR/ 



*ASCIZ /REAUY NOT SET AFTER ERROR CLEARED/ 



-ASCIZ /ERROR SET AFTEF RESET INSTR/ 
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014262 


052123 


000122 




014266 


042522 


042101 


020131 


014274 


046103 


040505 


020122 


014302 


043101 


042524 


C20122 


014310 


042522 


042523 


020124 


014316 


047111 


052123 


000122 


014324 


042522 


042101 


020131 


014332 


04255? 


020124 


C43101 


014340 


042524 


020122 


044103 


014346 


051101 


046040 


040517 


014354 


042504 


000104 




014360 


C511C5 


047522 


C20122 


014366 


04 25 23 


020124 


043101 


014374 


042524 


020122 


044103 


014402 


051101 


046040 


040517 


014^10 


0425C4 


000104 




014414 


042522 


042101 


020131 


014422 


042516 


042526 


020122 


014430 


042523 


026124 


041440 


014436 


040510 


020122 


C47514 


014444 


042101 


042105 


000 


014451 


105 


051122 


051117 


014456 


051440 


052105 


020054 


014464 


04711! 


042524 


051122 


014472 


050125 


020124 


042524 


014500 


052123 


000 




014503 


122 


040505 


054504 


034510 


04144C 


042514 


051101 


014516 


020054 


047111 


042524 


014524 


051122 


050125 


020124 


014532 


042524 


052123 


000 


014537 


12C 


044522 


052116 


014544 


051105 


044440 


052116 


014552 


051105 


040440 


047502 


014560 


042526 


046040 


053105 


014566 


C46105 


03144C 


000 


014573 


llf 


020117 


051120 


014600 


047111 


042524 


020122 


014606 


047111 


042524 


020122 


014614 


042502 


047514 


C20127 


014622 


042514 


042526 


020114 


014630 


00006^ 






014632 


051120 


047111 


042524 


014640 


020122 


051105 


047522 


014646 


020122 


042502 


047506 


014654 


042522 


041440 


040510 


014662 


020122 


047514 


042101 


014670 


CCC 






014671 


120 


044522 


052116 


014676 


051105 


047040 


052117 


014704 


051040 


040505 


054504 


C14712 


oor 






014713 


120 


044522 


052116 


014720 


051105 


042440 


051122 


014726 


051117 


040440 


052106 


014734 


051105 


041440 


C40510 



ERR14: iASCIZ /READY CLEAR AFTER RESET INSTR/ 



EHR15: ^ASCIZ /READY SET AFTER CHAR LOADED/ 



.ASCIZ /ERROR SET AFTEF CHAR LOADED/ 



ERR17: -ASCIZ /READY NEVER SET/ CHAR LOADED/ 



.ASCIZ /ERROR SET/ INTERRUPT TEST/ 



-ASCIZ /READY CLEAR/ IflTERRUPT TEST/ 



-ASCIZ /PRINTER INTER ABOVE LEVEL 3/ 



ERK23: *ASCIZ /NO PRINTER INTFR EFLOW LEVEL 4/ 



ERH24: iASCIZ /PRINTER ERROR BEFORE CHAR LOAD/ 



ERH25: -ASCIZ /PRINTER NOT READY/ 



-ASCIZ /PRINTER ERROR AFTER CHAR LOAD/ 



MAINDEC-11-DZLAE-n MACYll 27(1006) Ol-MAR-77 14:45 PAGE 92 
DZLAEB.Pll 28-FF:B-77 15:C8 EKKOH MESSAGES 



014742 
014750 



02012? 
000 



047514 042101 



014751 
C14756 
014764 
014767 
014774 
015002 
015010 
015011 
015016 
C15024 
015031 
015036 
015044 
015C52 
015054 
015062 
015063 
C1SC70 
015076 



200 
052514 
020075 

200 
052103 
020124 

000 

012 
020124 
G511C5 

040 
046525 
052200 
0C0C43 
020054 

000 

054 
C47522 
020054 



020043 
047115 
000 
042523 
052040 
020C43 

052012 
052516 
020C4C 
041440 
051516 
051505 



020040 

020122 
000040 



047503 
C20123 

042514 
051505 
02OC4O 

051505 
041115 
COO 
046117 
000012 
020124 



ini niniuiiiiiimu! niiiiiiiiiiininiiiiiiimumiiimmiim 

.SBTTL PROGRAM MESSAGES 

CDLUNN: *ASCIZ <CRLF>/# COLUMNS = / 
SELTST: .ASCIZ <CRLF>/SELECT TEST « / 

TSTNO: iASCIZ <LF><LF>/TEST NIMBER / 



050040 036503 



051105 
000043 



COLMN: 
ETSTNO: 

pcmsg: 

ERR: 
ERRS: 



.ASCIZ 
.ASCIZ 
*ASCIZ 
.ASCIZ 
.ASCIZ 



/ COLUMNS/<LF> 
<CRLF>/TEST #/ 
// PC=/ 
I , ERROR #/ 
I, I 
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015102 


042412 


042116 


C47440 


PASMSG 


015110 


020106 


040520 


051523 




015116 


020040 


000043 






015122 


051600 


051127 


036440 


DSMSGl 


C15130 


0CO04C 








015132 


020040 


047040 


053505 


DSMSG2 


015140 


036440 


000040 






015144 


040527 


052111 


047111 


WTMSG: 


C15152 


C26107 


020C40 


054524 




015160 


020120 


050123 


041501 




015166 


020105 


047524 


041440 




015174 


047117 


044524 


052516 




C15202 


lOOlCE 


CCC 






015205 


103 


040510 


020122 


tchar: 


015212 


02007^ 


000 






015215 


200 


047520 


042527 


FWRMSG 


015222 


1C0122 


COO 






015225 


012 


047516 


041440 


NCMSG: 


015232 


047117 


047523 


042514 




015240 


052040 


051105 


044515 




015246 


C40516 


005114 


000 




015251 


120 


044522 


052116 


MANMSG 


015260 


051440 


042520 


042105 




015266 


04o440 


047101 


040525 




015274 


C20114 


044524 


C44515 




015"'02 


043516 


200 






015305 


120 


052125 


051440 




015312 


044527 


041524 


020110 




C15320 


031Ct1 


05244C 


C20120 




015326 


047524 


051440 


040524 




015334 


052122 


052040 


046511 




015342 


047111 


100107 






015346 


052520 


C20124 


C53523 




015354 


052111 


044103 


030440 




015362 


020062 


047504 


047127 




015370 


040440 


020124 


047105 




C15?7e 


C201C4 


043117 


C30440 ^ 




015404 


046440 


047111 


052125 




015412 


100105 


000 






015415 


105 


052116 


051105 


T64HSG 


C15422 


C50C4r 


052101 


C42524 




015430 


047122 


050040 


051105 




015436 


046040 


051511 


044524 




015444 


043516 


047440 


020122 




C15452 


0475C4 


052503 


042515 




015460 


052116 


000200 






015464 


003407 


000200 




TKQBEL 


015470 


050200 


044522 


052116 


PRSPl: 


015476 


05144C 


04252C 


C42105 




015504 


044440 


020123 


000 




015511 


101 


050120 


047522 


PRSP2: 


015516 


027130 


000040 






C1552? 


020040 


044514 


042516 


PRSP3: 


015530 


027523 


044515 


052516 




015536 


042524 


026040 


053440 




015544 


052111 


020110 


000 





oASCIZ <LF>/END OF PASS #/ 

.ASCIZ <CRLF>/SVJR = / 

.ftSCIZ / NEW = / 

.ASCIZ /WAITING, TYP SPACE TO CONTINUE/<CRLF> 



.ASCIZ /CHAR = / 

*ASCIZ <CRLF>/POWER/<CRLF> 

.ASCIZ <LF>/NO CONSOLE TERMINAL/<LF> 

.ASCII /PRINT SPEED MANUAL TIMINn/<CPLF> 

-ASCII /PUT SWITCH 12 UP TO START T1MING/<CRLF> 

.ASCI'' /PUT SWITCH 12 DOWN AT END OF 1 MI NUTE/<CRLF> 

.iASCIZ /ENTER PATTERN PER LISTING OR DCCUMENT/<CRLF> 



-ASCIZ <7><7><CRLF> 

.ASCIZ <CHLF>/PRINT SPEED IS / 



»,ASCIZ /APPROX. / 

-ASCIZ / LINES/<57>/MINUTE , WITH / 
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015551 


C40 


041440 


C40510 


PRSP4: 


015556 


051522 


046057 


047111 




015564 


10010? 


000 






015567 


124 


051125 


020116 


TOHSGO 


C15574 


C47520 


042527 


C20122 




015602 


043117 


020106 


020046 




015610 


0425 23 


020124 


043117 




015616 


020106 


044514 


042516 




015624 


0002Cr 








015626 


045517 


020054 


052524 


TONSGl 


015634 


04712? 


050040 


053517 




015642 


051105 


047440 


100116 




C15650 


CCC 








015651 


117 


026113 


051440 


T0KSG2 


015656 


052105 


050040 


044522 




015664 


052116 


051105 


052040 




C15672 


020117 


047117 


C46055 




015700 


047111 


100105 


000 




015705 


117 


026113 


052040 


T0MSG3 


015712 


054522 


050040 


050101 




015720 


C511C5 


047440 


052125 




015726 


051440 


044527 


041524 




015734 


lOOllC 


000 






015737 


117 


026113 


051040 


T0MSG4 


015744 


051505 


047524 


C42522 




015752 


050040 


044522 


052116 




015760 


051105 


052040 


020117 




015766 


047117 


046055 


047111 




015774 


1C01C5 


CCC 






015777 


055 


026455 


026455 


TlMSGl; 


016004 


000040 








016006 


044440 


041516 


020110 


T1*<SG2; 


C16Q14 


C475Cf 


046522 


C43C40 




016022 


042505 


020104 


026455 




016030 


026455 


006455 


000 




016035 


123 


052105 


043040 


T1MSG3: 


016C42 


C51117 


020115 


042506 




016050 


042105 


051440 


044527 




016056 


041524 


020110 


047524 




016064 


020040 


000 






OieC67 


C4C 


044440 


C41516 


T1MSG4; 


016074 


042510 


020123 


020046 




016102 


042504 


C51120 


051505 




016110 


020123 


047524 


020106 




cieiie 


042522 


042523 


C20124 




016124 


053523 


052111 


044103 




016132 


000200 








016134 


047516 


046440 


052105 


T2EM: 


C16142 


047510 


0201C4 


C43117 




016150 


052040 


046511 


047111 




016156 


020107 


053101 


044501 




016164 


040514 


046102 


100105 




016172 


CCC 
016174 









»ASCI7 / CHARS/<57>/LINE/<CRLF> 

.ASCIZ /TURN POKER OFF & SET OFF LINE/<CRLF> 



.ASCIZ /OK, TURN POWER aN/<CRLF> 



.ASCIZ /OK, SET PRINTER TO CN-LINE/<CRLF> 



.ASCIZ /OK, TRY PAPER OUT SttITCH/<CRLF> 



^ASCIZ /OK^ RESTORE PRINTER TC ON-LlNE/<CRLF> 



-ASCIZ / / 

.ASCIZ / INCH FORM FEED /<CR> 



.ASCIZ /SET FORM FEED SWITCH TO / 



•ASCI? / INCHES & DEPRESS TOF RESET SWITCH/<CRLF> 



^ASCIZ /NO METHOD OF TIMING AVA ILABLE/<CRLF> 
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016174 


047531 


020125 


047506 


016202 


043522 


052117 


052040 


016210 


020117 


047105 


042524 


016216 


020122 


040504 


040524 


016224 


020C73 


052103 


C26514 


016232 


050123 


041501 


005105 


016240 


000 







TABLe4: , ASCIZ /YOU FORGOT TO FNTER DATA? CTL-SPACE/<LF> 



;OPEN-ENUEL) TABLE FOR TEST 64 DATA. 



000001 
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ACCEPT 


006210 


ACTFST 


001130 


BITC = 


CCCCOl 


BITOO = 


000001 


BITOl = 


000002 


BITC2 = 


CCCC04 


BIT03 = 


000010 


BIT04 = 


000020 


BITC5 = 


CC0C4C 


BIT06 = 


000100 


BIT07 = 


000200 


BIT08 = 


000400 


BIT09 = 


001000 


BITI = 


000002 


BITIO = 


002000 


BITII = 


004000 


BIT12 = 


010000 


BIT13 = 


020000 


BIT14 = 


C4CC00 


BIT15 = 


100000 


B1T2 = 


000004 


BIT3 = 


CCCCIO 


BIT4 = 


000020 


BITS = 


000040 


BIT6 = 


CCC10C 


BIT? = 


000200 


BIT8 = 


000400 


BIT9 = 


COICCO 


BPTVEC= 


000014 


CHACTR 


006510 


CHECK = 


1C4420 


CHLD 


005440 


CKFLAG 


001155 


CNLCAD= 


1C4417 


CNTP 


006606 


COLCTR 


006506 


CCLMN 


015C3! 


COLUMN 


014751 


CONTRL 


001220 


CR 


000015 


CPLF = 


000200 


CSBR 


001136 


CtLA 


00O346 


CTLE 


0C6362 


DCI 


006556 


DDISP = 


177570 


DISPLA 


0C1144 


DISPRE 


000174 


DSMSGl 


015122 


DSMSG2 


015132 


DSWP = 


177570 


DUNCOL 


006454 


DUNPAT 


C06446 



EHAT 


013556 


EMTVEC= 


000030 


KNDADR 


006512 


ERR 


015063 


ERRS 


015076 


ERRVEC= 


000004 


ERRl 


013632 


ERRIO 


014117 


ERRll 


014144 


ERR12 


014170 


ERR13 


014232 


ERR14 


014266 


ERRIE 


014324 


ERRie 


014360 


ERR 17 


014414 


ERR2 


013661 


ERR20 


014451 


ERR21 


014503 


SRR22 


014537 


ERR23 


014573 


ERR24 


014632 


ERR2E 


014671 


EPR26 


014713 


ERR3 


013706 


EPR4 


013744 


ERRS 


014000 


ERH6 


014033 


ERR7 


014070 


ETSTNO 


015044 


EXIT 


006644 


FF 


0C0014 


FSTPAD 


001126 


FSTSAD 


001124 


HOLD = 


1C4421 


HT = 


000011 


10TVFC= 


000020 


KYBDF 


007140 


KV3DST 


007442 


LnPTR 


011040 


LF = 


000012 


LKS 


001140 


LKSRV 


006566 


LOAD = 


104415 


LPE 


001116 


LPCTR 


001132 


LPKB 


001112 


LPKS 


OCIUO 


LPS 


001114 


MANHSG 


015253 


MINCNT 


006612 


MLQAD = 


104416 


NCMSG 


015225 


NUMLP 


001122 



NXTADR 


011142 


PASCNT 


005652 


PASHSG 


C15102 


PCHSG 


015054 


PIRG = 


177772 


PIRQVE= 


C00240 


PLKS 


001134 


PLOAO 


011044 


PRINT = 


104414 


PRQPAT 


006424 


PRPAT 


006466 


PRSPl 


C15470 


PPSP2 


015511 


PRSP3 


015522 


PRSP4 


C15551 


PRTHDR= 


104413 


PRTSET 


005442 


PRO 


COOOOO 


PRl 


000040 


PR2 


000100 


PR3 


000140 


PR4 = 


000200 


PR5 


000240 


PR6 


000300 


PR7 = 


000340 


PS = 


177776 


PSW = 


177776 


PWRMSG 


C15215 


PWRVEC= 


000024 


GUOl 


001764 


QUC2 


C02032 


RDCHR = 


104406 


RDDFC = 


104410 


RDLIN = 


1044C7 


RFPORT 


010044 


RESREG= 


104412 


RESTRT 


CC1210 


RESVEC= 


000010 


RSTA^R 


011316 


H6 


%C0C006 


P7 


»000007 


SAVREG= 


104411 


SELECT 


CC6752 


SELTST 


014767 


SERSW 


001120 


SLOAD 


011206 


SPD 


003500 


SP3 


005434 


3RDCI 


006614 


STACK = 


CCllOO 


START 


001174 


STARTX 


001226 


STKLMT= 


177774 



STRDNE 


001152 


TEST64 


006174 


SVTST 


011660 


TEST76 


006514 


SWR 


001142 


TEST77 


006534 


SWRFG 


000176 


TKB 


001102 


SWO 


000001 


TKS 


001100 


swoc = 


000001 


TKVEC - 


000060 


SWOl = 


000002 


TLOOP 


0011S4 


SW02 = 


000004 


TORTN 


006610 


SW03 = 


000010 


TPB 


001106 


SW04 = 


000020 


TPS 


001104 


SW05 = 


000040 


TPVEC = 


0000O4 


swoe = 


OOOICO 


TRAPVE= 


00C034 


SW07 = 


000200 


TRQNE 


001153 


SWOB = 


000400 


TRTVECr 


000014 


SW09 = 


001000 


TSEL 


007510 


SWl 


000002 


TSTNO 


OlbOU 


swio - 


002000 


TWOBEL 


015464 


s«u = 


004000 


TYPDS = 


104405 


SW12 = 


010000 


TYPE = 


104401 


SW13 = 


020000 


TYPOC = 


104402 


SW14 = 


040000 


TYPON = 


104404 


SW15 = 


100000 


TYPOS = 


104403 


SW2 


000004 


TOMSGO 


015S67 


SW3 


000010 


TOMSGl 


015626 


SW4 


000020 


T0MSG2 


015651 


SW5 = 


000040 


T0MSG3 


015705 


SM6 


000100 


T0MSG4 


015737 


SW7 = 


000200 


TlMSGl 


015777 


SWB 


000400 


T1MSG2 


016006 


SW9 = 


001000 


T1MSG3 


016035 


TABL64 


016174 


T1MSG4 


016067 


TAT 


013356 


T2EM 


016134 


TBITVE= 


000014 


T2SP 


003400 


TCHAR 


015205 


T50M1 


005424 


TERR 


006164 


T50M2 


005430 


TESTO 


002254 


T50PCT 


005422 


TESTl 


003072 


T64MSG 


015415 


TEST2 


003262 


WIDTH 


001150 


TEST20 


003614 


WTMSG 


015144 


TEST21 


003662 


$BELL 


001156 


TEST22 


003772 


SCHECK 


007052 


TEST23 


004060 


SCNLO 


011410 


TEST24 


004114 


SCNTLG 


012247 


TEST25 


004406 


SCNTLU 


012242 


TEST26 


004770 


SCR 


001164 


TEST27 


005062 


SCRLF 


001161 


TEST30 


005200 


SDBLK 


010576 


TEST31 


005226 


$DB2D 


012454 


TEST50 


005340 


$U32C 


012704 


TEST60 


005540 


SDECVL 


012634 


TEST61 


005654 


SDOAGN 


005332 


TEST62 


005766 


SDTBL 


01C566 


TEST6? 


006050 


SENDAD 


005322 
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SENDCT 


005306 


$EOP 


005262 


SEQPCT 


0C53C0 


SERROR 


007744 


SERRPC 


010040 


SFF 


CC1166 


SFILLC 


001172 


$FILLS 


001171 


$GET42 


0C5312 


$HD 


000000 


SHOLO 


007112 


SILLUP 


C13-50 


SITEMB 


010042 


$LF 


001162 
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SYMBOL 


TAPLE 




SLOAD 


011034 


SQUES 


001160 


SMLCAD 


011400 


SRDCHH 


011662 


SMNEh 


012265 


SPDDEC 


012276 


$MSW8 


012254 


SPDLIN 


012002 


SNULL 


001170 


SRDSZ = 


000004 


SOCNT 


011030 


SRESSE 


C10204 


SOCTVL 


013006 


SRTNAD 


005334 


SOMOCE 


011032 


SSAVSE 


010146 


SPASS 


005336 


SSAVRe 


C13354 


SPRHDR 


011546 


SSB2D 


012650 


SPRINT 


011502 


$SB20 


013024 


SPWREN 


01321C 


$SETUP= 


CC0034 


SPWRNG 


013344 


SSTUP = 


177777 


SPWPOP 


013262 


SSVPC = 


000200 



SSWP = 


162000 


STERM = 


000044 


STKP 


001102 


STKS 


OOllOO 


STN 


000000 


$TNPi»IR 


012564 


STPB 


001106 


STPFLG 


001173 


STPS 


001104 


STRAP 


013060 


STRAP2 


013132 


STRP = 


000022 


STRPAD 


013144 


STSTNM 


001146 



STTYIN 


012236 


STYPDS 


01C362 


STYPE 


010242 


STYPEC 


010344 


3TYP0C 


010632 


STYPON 


010646 


STYPOS 


010606 


SSGPT4= 


000000 


S OF ILL 


011031 


= 


016241 



ERRORS DETECTED: 

DEFAULT GLCBALS GENERATED: 
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